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1.0 ABSTRACT 


WG WwW Ww 


Ww 


THIS PROGRAM = os 7 oor INFORMATION FOR THE M9312 BOOTSTRAP 
TERMINATOR. IT HAS TWO MODES OF OPERATION; STAND-ALONE MODE 
WHICH REQUIRES OPERATOR INTERVENTION AND APT-MUDE. 


REQUIREMENTS 
HARDWARE 
ANY PDOP-11 err eus PROCESSOR WITH CONSOLE TERMINAL AND/“OR HARDWARE 


SWITCH REGISTE 
M9312 BCOT STRAP TERMINATOR 
4K MEMORY 


SOF TWARE 
THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION OF 


THE 
PROCESSOR, MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE 
APPROPRIATE DIAGNOSTICS. 


LOADING AND STARTING PROCEDURES 


LOAD THE PROGRAM BY ANY OF THE STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS. 


STARTING ADDRESS 
200- DO CRC VERIFICATION AND SIZING 


RESTART ADDRESS 
204- RESTART WITHOUT SIZING 


SPECIAL ENVIRONMENTS 


THIS PROGRAM IS APT COMPATIBLE SEE SECTION FOR ETABLE SET-UP. 
FOLLOW STANDARD APT PROCEDURES FOR LOADING AND STARTING. 


OPERATING PROCEDURES 
OPERATIONAL SWITCH SETTINGS 


SEG O00e 
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T E THE HARDWARE SiITCH REGISTER 
HONEVER TE oT "Puts REGTSTER ve NOT AVAIL@BLE THE PFOGRAM WILL USE 
LOCATION 176 AS THE SWITCH REGISTER. 


1 OR UP-- HALT ON ERROR 
1 OR UP-- INHIBIT ERROR TYPEOUTS 
SW 10=1 OR UP-- BELL ON ERROR 


EXECUTION TIMES 


EXECUTION TIME IS DEPENDENT ON THE CONSOLE TERMINAL DURING THE 
FIRST PASS. ALL OTHER PASSES TAKE LESS THEN 1 SECOND. 


APT PROCEDURES 


TEER SAE Tus CMGUOEE, EN RT UE OTS DbenSNE, chon 
STAND-ALONE MODE. = Ha ote aw BT Ts ag THE PROGRA AM WILL 
COMPARE PARAMETERS F Ms res TO THE CONTENTS OF THE ETABLE. 
THIe BROCE: APT COMPARS TON FEA ORE THE ETABLE MUST BE SET UP IN 


SENV: DON’ T_CARE 
SENVM: 200 OR 240 
SSWREG: DON’T CARE 
R: NOT USED 
SCPUOP: NOT USED 
SMAMS1: NOT USED 
SMTYP1 NOT USED 
SMADR1 NOT USED 
IAMS. NOT USED 
SMTYPe2 NOT USED 
NOT USED 
NOT USED 
SMTYP3 NOT USED 
SMADR3 NOT USED 
SMAMS4 NOT USED 
SMANSY NOT USED 
SMTYPY NOT USED 
SMADRY NOT USED 
SVECT1 NOT USED 
SVECTe NOT USED 
econ payne POWER-FAIL VECTOR ADDRESS 
S$CCW1: CONTENTS OF ADDRESS IN SBASE 
$COWe: NOT USED 
SDDWO: DEVICE CODES EXPECTED 


FIRST LETTER/SECOND LETTER 


SES OGO3 


EOl 
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SUBROUTINE ABSTRACTS 
NOROMS 


THIS ROUTINE is CALLED ONLY IF_NO ROMS WERE FOUND DURING SIZING 
1 Oo READ OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES THE 
CONTENTS TO A KNOWN EXPECTED VALUE. 


CHECKS 


THIS ROUTINE SETS UP THE FIRST, LAST AND EXCEPTION ADDRESSES FOR 
THE “CALSUM™ SUBROUTINE. IT RECIEVES THE CALCULATED ai ats FROM 
ck thmone COMPARES IT AGAINST THE GOOD CHECKSUM TO DETERMINE 


CALSUM 


THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF EACH ROM. IT 

RECEIVES THE FIRST ADDRESS TO BE CHECKED(FIRSTA) THE LAST 

a ti TO BE CHECKED(LASTAD) AND THE EXCEPTION ADDRESS ee 
M THE “CHECKS” MODULE AND RETURNS TO IT THE CHECKSUM IN R 


PROMP 


THIS Re if as PROCESSES THE ROM PARAMETERS. IT CHECKS THE SIZE/ 
DON SIZE BIT IN THE APT ETABLE AND EITHER FORMATS THE SIZING 
RESSAGES OR COMPARES THE SIZING INFORMATION TO THE APT ETABLE 


DEVCOD 


THIS ROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 
ADDRESS IN WHICH IT WAS FOUND BACK TO THE “PROMP” MODULE. 


PPF YAR 
THIS ROUTINE DETERMINES THE PSEUDO POWER-FAIL VECTOR ADDRESS AND 
PASSES IT AND ITS CONTENTS TO THE “PROMP” MODULE 


PUTMES 


SEG COO4 


FOL 
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THIS ROUTINE FORMATS THE PARAMETER AND POWER-FAIL ADDRESS 
MESSAGES. 


ERRHAN 

THIS ROUTINE FORMATS ALL we oS MESSAGES AND CALLS THE TYPE 
ROUTINE TO OUTPUT THEM. IT ALSO USES THE 91 bapa SWITCHES TO 
DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT 
F ILBUF 

THIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCII CHARACTERS. IT 
RECIEVES THE ADDRESS OF THE ASCII IN RS. 

ocaAsc 


Mg ROUTINE TAKES A SIXTEEN BIT BINARY NUMBER AND CONVERTS IT TO 
& ASCII CHARACTERS. 


ocAdD 


THIS ae A IS USED BY THE “PUTMES” MOGULS WHEN THE DATA IN R3 
IS NOT_IN THE RIGHT MODE TO BE HANDLED BY THE “OCASC” ts aaa IT 
MOVES THE ADDRESSING MODE OF R3 UP ONE LEVEL OF DEFERMENT 


RELIABILITY//AVAILABILITY/SERVICEABILITY 
WHEN RUNNING IN ANY pit LROMMENT BUT APT ro IS ONLY ONE ERROR 
DETECTED BY THE PROGRAM. THIS ERROR IS A CHECKSUM ERROR. THE 
MESSAGE WILL BE: 
CRC ERROR IN ROM EXX 
WHEN RUNNING IN THE APT ENVIRONMENT THREE OTHER ERRORS MAY OCCUR. 
1. AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN THE ETABLE DO 
NOT MATCH THE DEV re CODES FOUND IN THE ROMS. THE ERROR 
MESSAGE WILL BE EITHER 
1. COULD NOT FIND DEVICE CODE xx. 


2. FOUND UNEXPECTED DEVICE CODE xx. 
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THE FIRST MESSAGE WILL BE PASSED TO APT IF A _ DEVICE CODE 
LISTED IN THE ETABLE CANNOT BE ey IND IN THE EXISTING ROMS. 


THE SECOND nese WILL BE A IF A DEVICE COCE NOT LISTED 
IN THE ETABL OUND INA R 
THE SECOND i WILL BE IF THE PSEUDO POWER-FAIL_ VECTOR 


ADDRESS IN THE ETABLE DOES NOT MATCH THE ADDRESS DETERMINED 
By THE_ PROGRAM. TO BE IN THE BOARDS’ SWITCHES. THE MESSAGE 


POWER-FAIL VECTOR 
EXPECTED RECEIVED 


vert EXPECTED IS THE bh beg OF THE ETABLE AND RECEIVED IS 
THE VALUE FOUND BY THE PROGRA’ 


THE THIRD ERROR WILL BE IF THE CONTENTS OF BOARD'S PSEUDO 
POWER-FAIL_ VECTOR ADDRESS DOES NOT MATCH THE VALUE EXPECTED 
FROM THE ETABLE. THE MESSAGE WILL BE: 


POWER-FAIL DATA ERROR 
EXPECTED RECEIVED 


w 


E 


a 


ooo& 
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786000 


001106 


000011 


177776 
177774 


000007 


900005 
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ENA S 
-FNQGLE AB 

"NLIST MC,MD,C 

. TITLE CoHOBAD wage BOOT TERMR 8K 


ERIS aulerts[ corr. 


: 4PROGRAN BY BARRY G. IRRGANG 


 STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; SPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


Elsa! R=1 HALT ON ERROR, LOOP ON TEST, INHIGIT EF..OR TYPOUT 
Serre. Cee RATIONAL SWITCH SETTINGS 


SWITCH USE 


+ 

+ 

+ is HALT ON ERROR 
. 14 OOP ON TEST 

* 13 NHIBI? ERROR TYPEOUTS 
‘SertL BASIC DEFINITIONS 


*INITIAL 100 OF THE STACK POINTER ### 1100 ### 


ita ACK= 
;;BASIC DEFINITION OF ERROR CALL 


- EQUIV Ent , ERROR 
[EQUIV I0T; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


LSNESCEL Sous DEFINITIONS 


ts i 33 scone For tine FEED. TAB 
CRLF= Bo :3¢ For CARR AETRL ne FEED 
PS= 177776 ;;PROCESSOR STATUS WOR 
EQUIV PS.PSW 
STKLMT= 177774 :3 STACK CIMT REGISTER 
PIRG= 177772 T REQUEST REGISTER 
SWR= 
DDISP= 177570 hema "BuLCH PEG REGISTER 
*GENERAL PURPOSE REGISTER DEFINITIONS 
fo= 79 + OENERAL REGISTER 
R2= %2 + GENERAL REGISTER 
R3= %3 ::GENERAL REGISTER 
R4= “4 33 RAL REGISTER 
eB tena weeleren 
Ro= “~& 33 RAL REGISTER 
R7= “7 : GENE REGISTER 
SP= %~ ::STACK POINTER 
Pc= %? :;PROGRAM COUNTER 


#PRIORITY LEVEL DEFINITIONS 
bro= 0 ;;PRIORITY LEVEL 0 
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oco0o001 


100000 


000002 
000001 
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PRi= 40 s sERTORE TY LEVEL 
PRe= 100 ;;PRIORITY LEVEL 
PR3= 140 ;;PRIORITY LEVEL 
PRY= 200 ;;PRIORITY LEVEL 
PRS= 240 ;;PRIORITY LEVEL 
PR6E= 300 ;;PRIORITY LE‘VE' 
PR7= 340 ;;PRIORITY LEVEL 
-#°SWITCH REGISTER” SWITCH DEFINITIONS 
W1S= 100000 

SwWwi4¥= 40000 

SWi3= 20000 

SWle= 10000 

SW1il= 4000 

SW10= 2000 

SwO9= 1000 

SWwOs= 400 

SWO7= 200 

SWO6= 100 

SWOS= 40 

SWO4= 20 

SWO3= 10 

SWOe= uy 

SWO1l= 2 

SwOO0= 1 

-EQUIV SWOS,SW9 

-EQUIV SWO8, SWS 

-EQUIV SWO7,SW7 

-EQUIV SWO6, SWE 

-EQUIV SWOS, SWS 

-EQUIV SWO4, SWY 

“Bante SWO3, SW3 

“Eouty Sree i 

-EQUIV SWOO,SWO 

-#DATA BIT DEFINITIONS (‘BITOO TO BIT1S) 

6IT1S= 100000 

BIT14= 40000 

BIT13= 20000 

BITl2= 10000 

BITI1i= 000 

BIT1G= 2000 

BITOS9= 1000 

BITOB= 400 

BITO7= e200 

BITO&= 100 

BITOS= 40 

BITOY= 20 

BITO3= 10 

BITOe= 4 

BITOl= 2 

BITOO= i 

-EQUIV B8IT09,BITS 

-EQUIV BITOS,BITS 

-EQUIV BITO7,8IT7 


NOUS Wore 


o0c6 
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SELLE LCLCLCLILCL£ 
TUPUTU b= & bh b= 0 ho 
VM -OWOONOU SWE 


423 


451 000174 
4Se 000176 


454 000200 
4S& 000204 


464 OOOCO4E 


oooo04 


000200 
oo0c00 


000000 


000174 
000000 
000000 


000137 
000204 
000167 


600210 


0000Se 


001400 
001634 
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BASIC DEFINITIONS 
-EQUIV S8ITO6,BITS 
[EQUIV Bt TpS Bits 
“EQUIV BITOY,BITY 
7 EQUIV B1103,8113 
"EQUIV 8ITO2;BIT2 
“EQUIV BITOI,BITI 
[EQUIV B8ITOO,BITO 
jxBASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 i ]RESERV Eo AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 _ 
BETVEC= ty i FTRACE POINT RAP (BPT 
= s* 
IOTVEC= 20 tineut ourrut TRAP {1OT) *#SCOPE## 
PWRVEC= 24 ; ; POWE 
MTVEC= 30 33E ATOR TRAP (EMT) ##ERROR#* 
RAPVEC=34 Fie TRAP 
TKVEC= 60 sit Y KEYBOARD YBOARD VECTOR 
TPVEC= 64 i TTY INTER VECTOR 
PIRQVEC=240 ‘PROGRAM INTERRUPT REQUEST VECTOR 


eaebdnaeoearanarsusnsadbenensanarstanstarsnstansrerssvareesenes 
PROGR 


| neneuspanararinetonensaearatanananatatasaneneesessesesocsoes 
= 


APTERS 
APTERY 
CRCERR 
PFERR 
OME 
SEQERR 


-=0 
.SBTTL TRAP CATCHER 


FROM 4 - 776 CONTAIN A _“.+2,HALT™ 
LEGAL TRAPS AND INTERRUPTS 
0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD O + 3 SOF THARE DISPLAY REGISTER 
° 0 ; SOFTWARE SWITCH REGISTER 
TING_ADORESS( 


AR ES) 
MP aeSTART OS UMP TO STARTING ADDRESS OF PROGRAM 
MP RSTART 
.SBTTL ACT11 HOOKS 


;#ALL UNU SED Loc ONS 
isSbbuence O CATCH IL 
; #LOCATI O CONTAINS 


Of 


ATI 
H 
I 


= SASSASSESSSRAESESSSASSSSSASSSSRESSSASREAAFHAEFSSARLSAPSSLSFSRASRASE 
: HOOKS REQUIRED BY ACTII1 
SSVPC= ;SAVE PC 


46 
SEnBaD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


SEG 0009 


egueend M9312 
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S093 


MUU UT UT 
TODD He ere he ee he ee 
—-OWONTUCWN-OwWW 


oo00se 


statstat=t=t={=t=t=: 
a eT a er a 
be ee he be oe be ee 
Se rnor Luo 


statst=t=tst=) 
rere er ara 
ee ee 
SRSR EN 


sanpeeeeeeeeene 
sgeunnonas ene 
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000000 
000210 


001100 
00' 
000 


000000 
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vo 
OD 


-WORD. O 3;2)SET LOC.Se TO ZERO 
- =SSVPC >: RESTORE PC 


-=1100 

AUTOB: .BYTE 9 
: .BYTE 
WORD 


-SBTTL APT PARAMETER BLOCK 
5 REESE AEALE SAA SEAASLELA SLES SLE AAA ELAS ELAS LES EE SEES SEES ES EEE EE 
IRED FOR APT 


:SET LOCATIONS 24 
$3 SLFKFKKKEKKEEEKHKEKSKSHSKKHKSKSSSSSSSSKSSKAEAAEEARASSLSHESFFFSFSRSLSSD 


-SX=. 0 seve CURRENT LOCATION 
33SET eee FAIL TO POINT TO START OF PROGRAM 
3 ane T START UP 

.=44 3 int 18 APT INDIRECT ADDRESS PNTR. 

SAPTHOR ;;POINT T ADER BLOCK 

-=.$X 3 OCATION COUNTER 

5 RREREREEEE REESE EEE EREARERAEEESEEEERERERESES REESE EEE EEE EERE TE 

PARAMETER 


i 


:SETUP APT BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
SAPTHD: 
SHIBTS: grin if) 3; TWO HIGH girs OF 18 BIT MAILBOX ADDR 
i SMAIL 5 | ROORE Ss OF APT MATLBOX (BITS 0-15) 
STSTM: .WORD 2. ;;RUN TIM OF LONGES’Y TEST 
SPASTM: .WORD e. 3 ; RUN tie IN SECS. OF IST PASS ON 1 UNIT 
SUNITM: .WORD 0 *ADDITIONAL RUN My Fe 35? OF A PASS 
. WORD SET j= IL72 ;;LENGTH MAILBOX-ETABLE (WORDS) 
-SBTTL APT MAILBOX-ETABLE 
; ~~ aman senee acaemneeanamimimaniateeceencamat abet 
SMAIL: 3;APT MAILBOX 
SSG TY: -WORD AMSGTY ;; $ YPE CODE 
SFATAL: .WORD AFAT ;;FATAL ERROR 
STESTN: .WORD ATESTN ;; TEST R 
Soevel: :HORD ADEVCT ::DEVICE COUNT 
2. 33 
SONYT, BORD AUNI 5 306% UNIT NUMBER 
SMSGAD: .WORD AMSGAD ;;ME etn 
SMSGLG: .WORD AMSGLG eS NGTH 
SETABLE: 3 ;APT erent TABLE 
SENV: -BYTE AENV ssENVE NT BYTE 
SENVM: .BYTE AENVM ;; NT_ MODE BITS 
SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
SUSWR: .WORD AUSWR ;;USER SWITCHES 
SCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 


(QUICK VE 


I 
FOR EACH ADD 


R 
I 


I 
T 


FY) 
IONAL UNIT 


SEG 0010 


5 ta ay + tea BOOT TERMR 8k 
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Bes 8 
NN N 
a 


8888888ss 
fu ——p—e- Bo 
atte 


ee ee ee ee ee eh er he eee ee 
meee 
Orr 


ROROREO INGE chs 


S88888888sssssses 


SRR: 


001262 





001400 


012706 001100 


MACY11 30A(10S2) 
AP 


LO1 


13-MAR-78 09:S9 PAGE 11 


T MAILBOX-E TABLE 


i” vaiiead 
ww 
—S 


eee ee es GR o+ or ee os oe 
4 


oe me 
4 


2 


“. 
ee 68 Se Se 66 66 Ge 66 Ge Ge se 


ne 


, 


as 
“4 
roe 


EEF FFEEeRRferesEr a: 


MESGNeO-: ee Ge 08 88 G8 be oe Ge Se ee Ge be oe 


a 


START: — 
T T 
.SBTTL INT TALIZE TH THE E COMMON Tacs 


BITS 1S-11=CPU T 


YPE 
11704201, 1170S=02, 11/20=03, 11/46=04, 1! /4S=05 
7 sa Q@=10 


BIT 1 CLOCK 

Bit RORY Aa NOGETEN en 
: .BYTE AMANSI ;;HI 
: .BYTE AMTYPL ;;MEM. T 


REM. TYPE tt ae rh BYTE) 


22 
+4 


ee 
= 


< 


99990 O 


<< 


pss 
a ee 


PeOTEEEELE EEL Ecopurr LBBB 


<< 


1400 


ss INITIALIZE A FEW WECtORS 


012737 006430 000034 
012737 000340 000036 


SSTRAP, JSTRAPVEC 
#340, DRTRAPVEC+2; fiver 


MOV 


mime ag 
H n.S. BYTE 
Bes 11080 Eh Bek ce vac 


AcTy PE. re -S. aap: 
GH 


ae 


8 3. aa THIS WORD AND LOW OF “TYPE” ABOVE 


>. gi: ‘BYTE 


Be ition 


3S £9 EQUIPMENT Bit ae TEST 


DESCRIPTION WORD#1 
OLLER O ibenes no 
CE DESC 20 
re BEScR IPT Fre ieee 
g Recipies ists 
ne DESCK ce WORD #S 
E BESERIPTOR WoRDs? 
CE DESCRIPT WORDS 
CE DESC ag 
CE DESCRIPT #10 
eS DReceirian ise 
Flee wots 
3 BESERIPTOR WORDSiS 


;SETUP THE STACK POINTER 
Ma VECTOR FOR TRAP CALLS 


SES 0011 
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578 001420 O0S067 177520 
Sas 001424 016767 000476 
S82 001432 013746 900004 
es BB Nag b187e7 199876 

te ¢ 
see BBISSS Gusrée 177579 
587 OO1466 001012 
283 001470 
530 901472 012716 001500 
591 OO14 
592 001500 012767 000176 
593 001506 012767 000174 
S94 O01S14 012637 00004 
59% 001520 7 177420 
597 001524 132767 000200 
598 001532 001403 
599 001534 012767 001160 
600 001542 
601 
602 
603 001542 005227 177777 
ee ees 
Bos Golss6 G2273? ooise 
606 O01556 OO144e2 
607 OO1560 104401 oD1626 
609 001564 mise oo0042 
es 
Bll oole7s iee7e? 177360 
612 OO1600 001406 
613 O01602 O26727 177276 
614 001610 001005 
615 001612 104405 
Bie 01619 Ooo403 
617 OO1616 112767 oo0001 
618 001624 
619 001624 000417 
B52 Boles 012700 o07420 
623 001670 005020 
624 001672 O200e7 007504 
bes aise Sheree 
626 O01 37 001116 
627 001704 37 44 
628 001710 013746 4 
629 001714 016737 36 
630 001728 1ee737 177777 
631 001730 001414 
632 001732 012700 165000 
633 001736 005720 
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000466 


799032 


177426 
177416 


177376 
177372 


17742S 
177342 
oo004e 
000001 
000176 


1772S4 


ooo004 
165000 


INITIALIZE THE ta TAGS 
se 
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;;CLEAR THE PASS COUNT 
ROGRAM COUNTER 


HRS 8 ee SG ‘abi SL Recisfer. ° 


v 5 vec 
bs a 


BNE 
BR 65S 
64S: nov #65S, (SP) 
6SS: MOV aSWREG 
MOV sDisPnee, ISPLAY 
66S: MOV (SP)+ Sate RRVEC 
CLR areas 
BITB SAPTSIZE, SENVM 
BEG 67S 


eSSWREG, SWR 


SHITE TRAE Roca 1 


F FIRST PASS 
; ;FIRST TINE? 

es NDAD, a#42 H eRe i 
TYPE Se + OTe aeegete FRING 

.SBTTL GET vaALUE SOF TWARE shiten 
TST 842 3 a UNDER XXDP/ACT? 
nee ENV, a ce aia NG UNDER APT? 
che SHR, #SHREG age SARE SMT Fon REG SELECTED? 
GTSUR ae 1 Bean chet sun SETTINGS 

70s: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 

‘ BR 68S OVER THE ASCIZ 
5ib9S: -ASCIZ <CRLF>#CZM9BAD mais BOOT TERMR 8K%<CRLF> 
a ; mov eBUF L, RO 3CLR SIZING BUFFERS 
7 cnr 0, s0CTBUF ; HAVE WE go BRC THE WHOLE 

CLR SROMF I eur FAC TS ROM FOUND INDICA 
CLR sTIMES Sie CONTENTS. ek Cc 
MOV SERRVEC, -(R6) 
Cure =! Sere cnn SET UF CONTENTS = - br Thee. 
BEQ — ; HEN CPU is vat pois IN 
MOV #165000, RO :GET FIRST 


1$: TST (RO)+ 


Hd 

33 t, F . SHICH REGISTER 
ONO BONER ERE Rice AARDWARE “S 

> BRANCH IF T T TRAP OCCURRED 
: BN He IS NOT = -1 
a? 

:;BRANCH IF NO TIMEOUT 
:;SET UP FOR TRAP RETURN 

yi sPOINT TO SOFTWARE SWR 

;;RESTORE ERROR VECTOR 

15 LEAR pass 
33NO 


vORTICH 
OSE APT SuITCH REGISTER 


ADDRESS OF ROM SPACE 
;IF THIS INSTRUCTION TRAPS CPU ROM 


SEG OOle 


ORS 
AL FOR PUTMES SUB 


NOL 
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CZM9BA.P11 13-MAR-78 08:58 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0013 
£3¢ 901740 7 166000 cmp RO #166000 HAVE He SEO tED ALL ADDRESSES 
£35 Bp i S46 13397 000001 001116 = 5 1s QeROMF IN $1E NO ners G tu BYTE br Firs 
638 ’ :AOORESS Wo ? oo - SUME ROM PRESENT 
& 001754 o00402 3$ 3 T RES 
ay bot 1 rd $3: nDY tRb)+ SueRRVEC 4 T Cc om 
642 fee OL Meni > MOV se, Ind FOUND INDICATOR 
eda Boe 13735 Boatdo Opisae SS Bt YB sof JRSTB geTESTAO iF Lou eS BIT 7 SET 
64S 1404 y BEQ 7s : T SET ROM FOUND INDICATOR 
6 i 2777 177776 001232 CMP 8-2, JTESTAD : Ss 
bua 001116 7$ Bis py DeROMF IN ; $0 ie | aadhenses 
649 go2de4 000200 003250 4S: ADD 8200, aeTESTAD ; , mi O NEXT ROM 
cei Bers Be7? irwooo ooaeso |= EE 7wooo, —saatestao ©‘ Mawr CME CCED ED IRE Rar” 
bes pospue B5i BNE . IF Ween; NUE CKING 
653 O02044 7 001116 RSTART: TST JBROMF IN 3 ARE BAY AVAILABLE 
654 O0e0s9 1 BNE by :1E YES ng on ST 
655 767 000126 J PC NOROMS :1IF T 
656 002056 000411 BR sebP :GO TO ad Pass 
657 004767 000160 6S: SR CHECKS *GO CAL SUMS 
658 4 905737 001144 TST s$PASL ;ARE we ON 1ST 
659 2070 1004 BNE . op ;1F NO SK SS OF PARAMETERS 
002072 004767 oD0462 JSR 3 PROMP ;GO PROCE' TERS 
661 002076 004767 OO1S44 JSR poke SEQTST 3GO CHECK SEQUENCE OF DEVICE CODES 
bbe .SBTTL END OF ROUTINE 
664 4 jet hawk, Se 
pbs iA MENT Pas PASS NUMBER (SPASS) 
667 + TIF TOR TOR Go To IT 
668 ;#IF THE O RSTART 
669 sae ae LIRR bes SIRED TO. TO HAVE cy BELL INDICATE THE “END OF PASS” LOCATION 
eFt 
672 o02102 : 
oa bos arte posse Sey 177034 a NC SPASS INCREMENT THE PASS NUMBE 
33 N R 
675 902110 042767 100000 177026 ate #190000, SPASS ::DON'T ALLOW A NEG. NUMBER 
676 116 005327 ¢ (PC)+ ; ;LOOP? 
677 002120 SEOPCT: .WORD 
678 O0ele2 3017 BGT SDORGN 3;YES 
O25 BpSise. pason, MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
680 O0e1 1 SENDCT: .WOR 1 
681 002130 002120 SEOPCT 
682 9021 3e 104401 002171 TYPE , SENOMG ;;TYPE “END PASS” 
683 136 104401 002166 TYPE SENULL :: TYPE A NULL CHARACTER 
684 O02142 013700 oo0004e SGET42: MOV ds42,RO i iGET MONI ADDRESS 
68S 002146 001405 Q SDOAGN 33 IF NO MONITOR 
686 902150 906008 RESET >:CLEAR THE WORLD 
2 th stad peel SENDAD: JSR PC, (RO) $360 TO WONTTOR 
689 002156 O00240 NOP 33 


Cc 
c 
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DO NOW cwrweos 
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“ Rerererereieretetepet= t= N 


OOT TERMR BK 
3-MAR-78 08:58 


4 
377 377 

01S O4e41e 
oS0040 OS1501 


012703 173000 
013704 O0224e 
022304 


0Se737 000100 
001630 
Qe2703 174000 


B02 
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001110 


002460 
001116 


002556 
O00eSS4 
O00eSSe 


001110 


O00eSS6 


001116 


END OF PASS ROUTINE 
NOP ;;ACTII 


SDOAGN: 
JIMP a(PC)+ ; ; RETURN 
SRTNAD: .WORD RSTART 
*-NULL CHARACTER STRING 


: .BYT -1,-i1,0 $ 
MG: .ASCIZ <1$><l2@>/—END PASS” 


;NO ROMS TEST 
: THIS ROUT INE IS CALLED ONLY IF NO ROMS WERE FOUND 
:DURING SIZING. IT DOES A READ OF ALL BOOTSTRAP ROM 
:ADDRESSES AND COMPARES THE CONTENTS TO A KNOWN 
tEXPECTED VALUE. 
NOROMS: MOV #173000 R3 ;GET FIRST ADDRESS TO BE READ 
MOV QasNODATA, RY :GET ADDRESS OF EXPECTED VALUE __ 
1S: CMP (R3)+, RY :DOES RECIEVED VALUE EQ EXPECTED 
BEQ 2s :IF YES CONTINUE TESTING 
BIS SNOROME , JsROMERR :IF NO SET ERROR INDICATER 
JSR PC ERRHAN :REPORT ERROR 
2s: CMP #174000, R3 tHAVE ALL ADDRESSES BEEN TESTED 
BGT 1$ :IF NO GO TEST THIS ADDRESS 
RTS PC 
NODATA: .WORD 161777 
;CHECKSUM ROMS MODULE 
: THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT 
CHECKS: MOV #1 @sROMCNT ; INITIALIZE RON COUNTER 
BIT BROMCNT, JeROMF IN 1S DIAGNOSTIC ROM PRESENT 
BEQ :IF_ NO GO CHECKSUM BOOT ROMS 
MOV #165775, JBLASTAD :SET UP LAST ADDRESS TO BE SUMMED 
MOV & aSEXCADD :SET UP EXCEPTION ADORES 
MOV #165000, aeFIRSTA :SET UP FIRST ADDRESS TO BE SUMMED 
JSR PC CALSUM :GO CALCULATE CHECKSUM 
MOV #165775, R3 3GET EXPECTED CHECKSUM 
R3, RY ;COMPARE CHECKSUMS 
BEO 1$ IF CHECKSUMS COMPARE CONTINUE 
BIS #CRCERR, JsROMERR : IF ERROR INDICATER 
JSR Cc ERRHAN :REPORT ERROR 
1S: MOV #173000, asFIRSTA so£T UP FIRST ADDRESS TO BE SUMMED 
MOV #173024; aSEXCADD :SET UP EXCEPTION ADDRE 
MOV #173175. aSLASTAD :SET UP LAST ADDRESS TO BE SUMMED 
MOV #173176 Re :GET ADDRESS OF GOOD DATA 
2s: ROL aeROMCNT :UPDATE ROM COUNTER 
BIT SROMCNT, JeROMF IN :IS ROM PRESENT 
BEQ 3$ :IF NO, GO UPDATE TO NEXT ROM 
JSR PC CALSUM :IF YES GO CALCULATE CHECKSUM 
MOV (R2), R3 :GET EXPECTED CHECKSUM 
CMP R3, RY COMPARE CHECKSUMS 


SES OC14 
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00140S 
0S2737 


000020 
bob20d 
868588 
174600 


o0esse 


000020 


120001 
120001 


ooess4 


O0eSS6 


MACY11 ore 


001110 
ogres 
BBSeee 


ooesse 
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ND OF PASS ROUTINE 


BEG s 
BIS #CRCERR, BROMERR 
ISR Cc RRHA 

3S: ADD #200, Sar iRSTA 
ABB sS8B° g EXE ORR 
en s754600, REE IRSTA 
BNE 
RTS PC 

ROMCNT: O 


det a oy | a Cah ee 
;THIS R ores, ! 1 CBC AP CHEC 
iE EVERY "EBEATION VEXC PT THE EXCEPTION 


CALSUM: MOV Re SP) 
MOV Jef IRSTA, b 
CLR RY 
LOOP: MOV (RO)+, RS 
CRCLOP cee ag ~ 
ROR RY 
ROR RS 
BVC 3 
MOV #120001, 1 
BIC 4 i 
BIC #120001, RY 
BIS 1, 
1S: DEC 2 
BGT CRCLOP 
CMP RO, aeEXCADD 
BNE 2s 
TST (RO)+ 
2s: che RO JSLASTAD 
LOS LOOP 
MOV (SP)+, Re 
RTS PC 
FIRSTA: O 
EXCADD: O 
LASTAD: O 


;PROCESS ROM PARAMETERS MODU 


LE 
i THIS ROUTINE MA gt ed ie PLZ ING ROM THE BEV G0 ¢ 


IF _SIZI 
is UPARAME TERS RECEIVED 
+ AND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE. 


;RODULES AND ASSEMELE, RESSAGES TO 


HECKSU' 


HE CONTE?.. 
AD S ANID CAST ABDRESS 


AND _PPFVAR 



















SEG 0015 


iE a ale EQUAL CONTINUE 
pant EREDR T INDICATER 


oe ie PBB sores 


iHAvE ALC’ RORS "BEEN CHECKED. 
iTF es 08 SE KS UM NEXT ONE 


i aBye SFARTING ADDRESS 
: IN TIAL Tee CRC WORD 
;GET A BYTE 


;SET BYTE COUNT 
; THE NEXT NINE LINES 
:00 TH mATH CALCULATIONS 


iTS NEXT RODRESS AN EXCEPTION ADDRESS 
i IF tes SKIP ADDRESS 

FALL LOCATIONS BEEN SUMMED 
iP Vio 


;RESTORE Re 
;IF YES RETURN 


IF IT IS THE 
NG IS 
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C2M9BA. 


Saete 


fesleetesTeslestesloeleeloe) 
Pe ae ee Be ee pe 
WONT UI CWE 


Bsa NR ERNS 


@ 
W 
- 


832 


Pll 


003032 
003034 


105737 
e4 


sectors 
N 


eSgR 8 
33 


oo 
ee 
TENS 


001157 


Gauss 
oo04S0 
000040 


001242 


oo0000e 
001104 
oo000e 


000010 
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001110 


001110 


001110 


001110 


001110 


PROMP : 


10$: 


1$: 


es: 
33: 


4S: 


Ss: 
6$: 


7$: 
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TSTB 
8 


eam 


8 
sAPTERS, 


as$COWl 
gaBUFe+e, 


9$ 
#APTERY, 


Evco 
UTME 


PPFVAR 
a #ROMERR 


ERRHAN 
PUTMES 


DEVCOD 


@#ROMERR 
ERRHAN 
R3 

RY 


RY 
(RY) 


a #ROMERR 
ERRHAN 
R3 


PPFVAR 
RY 


R3 
R3 


a 8ROMERR 
ERRHAN 
RY 

R3 

R3 
asROMERR 


;IF BIT 


SES OO16 


+P CLEAR i 
* IS SE co T DON moat” 
eal PARAMETER MESSAGE 


O GET <a * ‘eaten VECTOR ADDRESS 
Ws THERE AN 


F ceo Rat "ES ESSE. 
UO POWER-FAIL VECTOR 
T_MESSAGE INDICATOR 

— CODE MODULE 
Hie oo 


lg 


° 
Pz 
rm 
° 
4x 
bane 


CK 
N’T CHECK NEXT ETABLE 
yen Ad CE CODE ON BOARD 
IST IN 


TABLE 
Ro WE’ RE DONE 


TE SONTENTE_ Boe OAL ZERO CONT INUE 


:GET ETABLE DEVICE CODES 
;EORMA 


OP SASS Bice 

9° ves eet Next g RO0ES DEVICE FopE 
:IF NO HAVE WE ¢ HECKED ALL THE BOARD 
:DEVICE CODES, IF NO CONTINUE 

:PUT ASCII IN’ RIGHT ORDER FOR OUTPUT 


;IF_YES ETABLE DEVICE CODE NO 
;NOT ON 


SESW AATBRRARR 
N44 
~~ 


IF CONTENTS EQUAL ZERO-DONE 

IF CONTENTS NO EQUAL ZERO-CONTINUE 

GO_ GET PSEUDO POWER-FAIL VECTOR ADDRESS 
me TABLE Sous i) 


see 


;SET APT aa ENO LGATOR 
;GO_TO ERROR ROUTINE 

;GET ETABLE DAT 

;GET_ BOARD DAT 

;00 THE rH PARAMETER COMPARE 
; IF YES THEN DON 

;SET APT ERROR INDICATOR 


E02 
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KSNSBACP 13-MAR-78 08:58 END OF PASS ROUTINE SEG C017 

ess o0304e 904767 001014 JSR PC, ERRHAN ;G0 TO ERROR ROUTINE 
B53 003046 000207 9$: RTS PC’ 
861 ;GET DEVICE CODES MODULE 
862 : THIS SUBROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 
863 tADORESS IN WHICH IT WAS FOUND BACK TO THE C CALL ING ROUTINE. 
Bed ;DATA 1s aT ORED IN BUFFER “BUF1” IN THIS FORMAT 
866 : BUF 1: ADDRESS. OF FIRST DEVICE CODE 
BE? : DEVICE C 
868 : ADDRESS OF SECOND DEVICE CODE 
869 ; DEVICE CODE 
870 : 
871 : 
87. : ‘ 
873 ; : 
874 : ADORESS OF NTH DEVICE CODE 
875 DEVICE CODE . 

f ; 
877 i IF DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE. 
878 HERE IS ROOM FOR UP TO 12 DEVICE CODES IN TEMP 
879 003050 012700 007420 AEVEOD: MOV #BUF 1, RO o 
880 003054 012701 OD0001 MOV al, Ri ; INITIALIZE ROM POINTE 
881 030137 001116 BIT Ri; a SROMF IN :IS DIAGNOSTIC ROM PRESENT 
B82 003064 O0i14i1 BEQ 1$ :IF NO GO TEST BOOT ROMS 
883 00 012737 165774 003250 MOV #165774 aaTESTAD :GET ADDRESS OF DIAG. ROM DEVICE CODE. 
884 003074 013720 003250 MOV asTESsTad, (RO)+ : STORE ss OF DEVICE CODE 
88S 003100 017720 O00144 MOV JTESTAD (RO)+ :STORE DEVICE CODE 
886 003104 005037 003252 CLR asDAFLAG :CLR DATA TYPE FLAG 
887 003110 013737 001114 oD3250 1S: MOV aeF IRSTB, asTESTAD :GET ADDRESS OF FIRST BOOT ROM 
888 003116 006101 ROL Ri :UPDATE POINTER TO NEXT ROM 
889 003120 030137 001116 3$: BIT Ri, QeROMF IN IS ROM PRESENT 
890 003124 001005 BNE 4g :IF YES GO GET PARAMETERS 
891 003126 062737 OD00200 oD03es0 ADD #200, asTESTAD :IF NO UPDATE TEST ADDRES 
8S2 003134 006101 ROL R1 :UPDATE POINTER TO NEXT ROM 
893 003136 000437 BR 9g :GO SEE IF ALL ROM CHECKED 
894 003140 005737 003252 4$: TST JeDAFLAG :IF DATAFLAG=0 THEN DATA IS DEVICE CODE 
895 003144 001010 BNE 5s :IF DATAFLAG=1 THE DATA IS OFFSET TO NEX 
896 003146 013720 003250 MOV aJaTESTAD, (RO)+ :STORE ADORESS OF DEVICE CODE 
897 0831S2 017720 000072 MOV JTESTAD, (RO)+ : STORE DEVICE CODE 
898 003156 062737 O00002 003250 ADD #2, aeTESTAD :UPDATE TEST ADDRESS 
899 003164 oD0422 BR 8s :GET OVER SOME CODE 
$00 003166 013702 003250 Ss: MOV @aTESTAD, Re :SAVE OLD TEST ADORES 
801 003172 067737 O000S2 003250 ADD JTESTAD asTESTAD :;UPDATE TO NEW TEST ADDRESS 
$02 003200 013703 003250 MOV aseTesTad, R3 :GET THE NEW ADDRESS 
$03 O0C3204 042702 177177 BIC #177177, Re :SAVE ONLY BITS 7,8 
904 003210 042703 177177 BIC #177177. R3 :IN R3 ALSO 
905 003214 160203 SUB Re, R3 :CALCULATE DISTANCE BETWEEN ADD 
906 003216 005703 6S: TST R3 :I1S R3 EQUAL TO O 
907 003220 001404 BEQ 83 ;1F YES THEN DONE 
$08 003222 162703 oo0200 SUB #200, R3 :IF NO THEN MOVE POINTER 
308 poacee p0s104 ROL Ri [ONE BIT FOR EVERY 200 
811 003232 005137 0o03252 8S: COM aJeODAFLAG ;CHANGE DATA FLAG TO RIGHT DATA TYPE 
Si2@ 003236 023727 003250 174000 9S: CMP aSTESTAD, #174000 tHAVE WE CHECKED ALL THE ROM 
$13 003244 9002725 BLT 3S :IF NO CONTINUE 


FOe 
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C298 - 
<Smgga 13-MAR-78 08:58 END OF PASS ROUTINE seo cole 
gid 003246 000207 RTS PC ;IF YES RETURN 
1 

816 003250 o00000 TESTAD: 0 

317 003252 000000 DAFLAG: O 

315 :GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE 

920 :THIS SUBROUTINE TESTS LOCATIONS 17 AND 173224 TO DETERMINE 

921 :WHICH VECTOR WILL OD IF POWER-FAIL OPTION ENABLED ON THE 

355 5 BORD MIT GE TON OR ARERNOR HILL BE DETECTED. 

ge4 : A WILL BE RETURNED iN “BUF2” IN THE ES RnaT. 

926 : BUF2: PSEUDO POWER-FAIL VECTOR ADDRESS 

367 ; CONTENTS OF VECTOR ADDRESS 

929 003254 032737 777 173024 PPFVAR: BIT 8777, #173024 :TEST IF -OCATION 173024 SELECTED 

Se Bes BLM ire corey Rat frames, © sume, side SY eDHtea ofbe uma” 17S 
x $ ; . 

932 003272 013737 1730e% 007502 MOV 98173024, asBUFe+2 :STORE CONTENTS OF LOCATION 173024 

933 003300 O00416 BR 3$ :GO TO RETURN 

334 003302 032737 000777 173224 1S: BIT 8777, 39173224 :TEST IF LOCATION 173224 SELECTED 

93S 003310 001407 BEQ $ :IF NOT THEN SET ERROR INDICATOR 

936 O033le 012737 173224 007500 MOV #173224 asBUF 2 :IF IT IS THEN STORE ADORESS 

937 003320 013737 1732e% O07502 MOV aei73ee4, aeBUF +2 :STORE CONTENTS OF VE 

938 003326 9000403 BR 3$ :GET OVER ERROR 

939 003330 OS2e737 OO0D4O 001110 2s: BIS SPFERR, a #ROMERR :SET ERROR INDICATOR 

340 003336 000207 35: RTS PC 

942 

943 

gue PUT MESSAGE IN BUFFER ROUTINE 

346 !THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL MESSAGES. 

948 003340 017604 oD0000 PUTMES: MOV a( Rb) R4 ;GET MESSAGE BUFFER ADDRESS 

949 003344 005737 003644 TST aaeTIMes :IS THIS FIRST TIME THROUGH 

390 003350 001076 BNE 3$ j JF NOT EIRST TIME THEN FORMAT POWER- 

952 003352 005237 003644 INC aaTIMES > TOGGLE WATCHDOG 

953 003356 012703 007420 MOV #BUF 1 R3 :GET DATA FER ADDRESS 

$54 003362 022713 165774 CMP #165774, (R3) :I1S DIAGNOSTIC ROM PRESENT 

955 003366 O010i2 BNE :IF NOT DON’T FORMAT DIAG. ROM MESSAGE 

9g 003370 012705 006530 MOV #ORHEAD, RS :IF IT IS GET DIAG. ROM MESSAGE HEADER 

003374 004767 001000 JSR PC, F ILBUF :GO PUT HEADER IN MESSAGE BUFFER 

3e9 bos4be peoos oo0002 ADD 2 R3 SKIP OVER ADDRESS OF ASCII 
& ; 

960 003406 000313 SWAB (R3) ;FORMAT ASCII FOR MESSAG 

961 OO34i0 112324 MOVB (R3)+, (R4)4 :PUT ASCII IN MESSAGE BUFFER 

962 OO034i2e 112304 MOVB (R3)+ (RY) + 

3e4 Spsde0 eed ata -m Be SERHEAD, FELBUF GO PUT BOOT ROM HEADER IN MESS. BUF 

See bosuse beret 000015 2s SOvB ns R oe A CR/LF HERE Pat 

¢ 8 (R4Y)4¢ . 4 
967 003432 112724 O0001e MOVB alr’ RY i+ . 
968 003436 005713 TST (R35 , ;IS DATA EQUAL TO ZERO 


969 003440 9001464 BEG S$ 


GOe 
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970 003442 062713 o00004 ADD 84, (R3) ;GET FIRST ENTRY POINT 

71 0034 004767 74 ISR Pc! OCADD :GO CONVERT OCTAL TO ASCII 

372 es 77 OBao 22 J R PC: FILBUF :GU PUT ENTRY POINT IN MESSAGE BUF 
g>¢ bosses 1is724 00040 Move «B40! ee 

#40. 
352 Besusa «t15554 B8s8u0 MOVE 40: (RY)4 
ae Bessa Bir? Beioss ie E seabo G5 SROGR? SOTA F2teca 
a8 

$79 OC peaseS 7 7 JSR PC’ F ILBUF :GO PUT ENTRY POINT In MESSAGE SUF. 
980 003510 ll HT 

981 l2 112724 o00040 MOVB #40, (RY) + 

982 16 112724 O00040 MOVB #40; (RY) + 

ge; foseee Jere eeoi| nove: a: Pur 100 

98S 425563 oo0002 ADD se, R3 ‘UPDATE L ta ECEFeER ADDRESS 

986 003536 313 SWAB (R3) : FORMAT ASCII FOR MESSAGE 

987 003540 112324 MOVB (R3)+, (R4)+ :MOV ASCII TO 

988 003542 112324 MOVB (R3)+, (RY) + 

989 003544 000730 BR 2 ;GO BACK TO START OF LOOP 

990 003546 012703 007500 3$: MOV #BUF2 R3 ; GET DATA BUFFER ESS 

991 003552 012705 006660 MOV #PFHEAD, RS :GET POWER-FAIL HEADER ADDRESS 

$92 003556 004767 000616 ISR PC, F ILBUF :GO PUT POWER-FAIL HEADER IN MESSAGE BUF 
993 003562 o00015 CR 

994 003564 O22703 007504 4S: CMP #BUF2+4, R3 ;ARE WE DONE 

995 003570 001410 BEQ St :IF YES THEN GO RETU 

396 72 767 000750 JSR PC, OcADD :GO CONVERT OCTAL tO" ASCII 

3 76 767 000576 JSR PC: F ILBUF 

399 oo 43 ooo002 ADD R3 ; UPDAT DATA BUFFER ADDRESS 

#2, 

1000 10 BR 4 Back TO START OF LOOP 
1001 003612 112724 oo0015 SS: MOVB acR, (RY) + Bora CR/LF AT END oF MESSAGE 
1002 003616 1127 000012 MOV aLF (RY) + 
1003 10 CLR (R434 sPUT ZERO TERMINATOR AT END OF MESSAGE 
1004 003624 017667 oD0000 oxD0002 MOV a(Rb), 6$ :GET MESSAGE BUFFER ADDRESS 
1005S 003632 104401 TYPE 
1006 003634 O00000 S$: .WORD 0 
1007 003636 062716 oD00002 ADD #2, (Rb) ;GET OVER MESSAGE BUFFER ADDRESS 
1008 003642 9000297 RTS PC 
1909 003644 900000 TIMES: O 
1011 
1012 
1013 
1014 ; SEQUENCE TEST 
1015 :THIS TEST VERIFIES THE ORDER OF THE ROMS ADHERES TO THAT SPECIFIED 
1016 3 IN LLATION PROCEDURE. THAT IS THE THEY HAVE BEEN INSTALLED 
1017 IN ALPHABETICAL ORDER ACCORDING TO THE FIRST DEVIC DE OF THE ROM 
1018 : THE TYPEOUT FROM THIS SECTION DOES NOT INDICATE AN ERROR BUT IS JUST 
1019 A WARNING TO THE OPERATOR THAT THE SPECIFICATION HAS NOT BEEN FULLY 
inst :ADHERED TO. 
1022 O03646 013700 001116 SEQTST: MOV QsROMF IN RO ;GET ROM LIST 
1023 003652 O06000 ROR RO ‘ :GET RIO bE prac ROM INDICATOR 
1924 003654 oC0241 CLC :OK START, WE MUST FIND MORE THAN 
1025 003656 905037 o03e52 CLR JaDAFLAG :ONE BOOT’ROM TO DO THIS TEST 


222 
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WONT CW 


0000 
<£ 


%y 


0000 
muiuiu 
—-OWONT UL We 


FRAT 


EeRREER 


a ee ee en ae ee ee ee es ae be eo ee ee Be bee Be be ee ee ee he ee he ee 
Tuc WwM-OwW 


ONVA200000000 
DNNNANANNNN 
OWON 


w 
i 


Pll 


003662 
003664 


003772 
003774 


006000 
103406 


bee°3? 


007317 
000207 


o00G000 
000000 
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003eSe 


000004 


Bo7420 
000001 


oocoo4 
000040 


000030 
000020 


003252 


003774 
003eSe 


003772 
0032Se 


000170 
ooo0te 
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END OF PASS ROUTINE SES 0029 


iS: ROR RO oF ROM _PRESENT | SATS pre 
INC DROAFLAC HHERERER t ‘Count TER R-IF WE fe S07 
003252 ao ot he aaDAFLAG is “ET. Ss, BOOT ROM PRESENT GT AL 
x 
2s: Fe} BE 59 EXE Test BUT IF RO IS EQUAL TO 
BEO SEQEX : ZERO THERE ONLY THE ONE SO EXIT 
CLR JSDAFLAG 
MOV #BUF 1, RO ;AT LEAST TWO TART TEST, GET ROM DATA 
001116 BIT #1, JSROMF IN :IS DIAG ROM NT 
BEQ 3$ :IF NO DON’T OPDATE para TABLE ADDRESS 
ADD 84, RO :IF YES THAN UPOAT —E TABLE ADORESS 
3S: JSR PC: GETCOD :GO GET 8 DEVI 
BNE © SEOEX oF vA TD DEVICE go FOUND 
ISR Pc GETCOD : CODES ap peyt "g00g. ins SEN oun NEXT COD 
ooo020 CMP FRSCOD, LASCOD :IS 15T CODE ALPHABETICALLY LESS THE 2ND 
BGT 4§ :TE NO NO SEQUENC 
TST R4 F RY NOT EQ O ZERO GET CON 
BNE SEGEX ; COULD NOT T FIND VAL ID DEVICE CODE, SO EXIT 
BR 3$ IF NOT THEN GO GET NEXT T DEVICE coo 
4S: TYPE ea OUT WARNING MESSAGE 
SEQMSG 
SEQEX: RTS PC ; RETURN . 


FRSCOD: .WORD OQ 
LASCOD: .WORD O 


;GET DEVICE CODES SUBROUTINE 
:THIS SUBROUTINE IS CALLED BY THE SEQUENCE TEST ROUTINE TO GET THE 
:DEVICE CODES FROM THE SIZING BUFFER. THE ROUT INE VALIDATES EACH DEVICE 
:CODE. THAT IS IT MAKES SURE THE CODE IS THE FIRST CODE IN 
:IT CAN NOT FIND A VALID DEVICE CODE IT MAKES R4Y NONZERO BEFORE RETURNING. 
GETCOD: CLR 4 
TST QeDAFLAG ;IF DAFLAG IS ZERO PUT DEVICE CODE 
BEQ 1S :IN ERSCOD 
MOV #LASCOD R3 iF DAF aG S ONE PUT DEVICE CODE 
CLR aaDAFLAG :IN LA CLEAR D 
SR $ :GET OVER LAG=ZERO CET 
1$: MOV #FRSCOD R3 :PUT DEVICE CODE IN FRS COD 
INC aeDAFLAL :;MAKE DAFLAG NOT ZERO 
2$ TST (RO) :DOES DEVICE CODE EXIST 
BNE 3$ :IF YES CHECK IF VALID 
COM RY :IF NO MAKE RY NON-ZERO 
BR GE TEND 3 AND EX T 
33 MOV (RO)+, Ri GE SS OF DEVICE CODE 
BIT #170, Ri :IF BIT 3-6 CLEAR THIS IS 1ST CODE 
BEQ ug :OF A ROM SO GET 
ADD #2, RO :IF BITS SET GeoATE TO NEXT CODE 
4s Ao °a0 R3 eNO SEVICE EODE AND STORE IT 
: ‘ i+, (RZ) : 
GETEND: RTS PC BE TURN 





Ide 
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i082 
1083 
1084 
1085 
1086 ;ERROR HANDLER ROUTINE . 
1987 : THIS SUBROUTINE FORMATS THE ERROR MESSAGES THE TYPES THEM 
1 
1880 rata erie 010214 Eran: Rov BERRMSG RY 
1091 004070 S237 001120 INC aJSERRCNT s INCREMENT ERROR COUNTER 
1092 004074 032777 OO2000 175002 BIT eBIT10, JSWR ;BELL ON ERROR 
1093 004102 1402 BEQ 1$ :BRANCH IF NO 
tee bosioe doeced BELE 
1098 004110 032777 O20000 174766 1S: BIT eBIT13, aSWR ; INHIBIT ERROR TYPEOUT 
1097 004116 001110 BNE 10 
1098 004120 9013700 001110 MOV JsROMERR, RO ;GET ERROR CODE 
1099 004124 013767 001110 000174 MOV JSROMERR, 95 :SAVE ERROR CODE FOR APT 
1100 004132 012701 004362 MOV #EHEADT, Ri ;GET ERROR HEAD R TABLE r! 
1101 004136 O00241 CLC C-BIT USED TO. STOP STEPPING THROUGH TAG 
1102 004140 2s: ROR RO i ROTATE RROR CODE 
1103 OO4142 103403 BCS 3$ :IF C-BIT SET STOR STEPPING 
1104 004144 701 oo000e ADD #2, R1 :IF C-BIT CLEAR STEP TO NEXT HEADER 
1105 004150 000773 BR 2g :GO STEP 
1106 OO41S52 011105 3$: MOV (R1), RS : PUT HEADER ADDRESS IN REGISTER. 
1107 004154 004767 oD0220 JSR PC, FILBUF :GO PUT HEADER IN ERROR MESSAGE BUF. 
1108 004160 o00015 CR 
1109 004162 032737 oO00023 001110 BIT #23, a*#ROMERR ;1S ERROR A CRC, APTERI OR APTER2 
1110 004170 oO014e4 BEQ 7$ ‘IF NO GO FORMAT APTER3, APTERY 
1111 004172 032737 o00020 001110 BIT #20, JsROMERR :IS ERROR CRC 
lli@ 004200 001415 BEG 6 :IF NO FORMAT APTER1, APTER2 
1113 OO42@02 013700 o02e460 MOV SROMCNT, RO :GET ROM COUNTER 
1114 004206 012701 OO06Si2 MOV #ROMNUM, Ri :GET ROM NUMBER TABLE 
1115 OO04%212 O00241 CLC :C-BIT USED TO STOP STEPPING THROUGH TAB 
1116 004214 006000 4g: ROR RO :ROTATE ROM NUMBER 
1117 004216 103403 BCs 53 :IF C-BIT SET STOP STEPPING 
1118 OO4e2 062701 o00002 ADD #2, R1 :IF C-BIT CLEAR STEP TO NEXT HEADER 
1119 004224 000773 BR 4§ ;CONTINUE STEPPING 
1120 OO04226 112124 S$: MOVB (R1)+, (R4)+ :PUT ROM NUMBER IN ERROR MESSAGE BUF 
1121 004230 112124 MOVE (R1)+; (R4)+ 
ll22 004232 O004e1 BR 8s ;GO TO END OF ROUTINE 
1123 004234 112324 6S: MOVB (R3)+, (RY) + :!PUT BAD DEVICE CODE IN ERROR MESS. SUF. 
1124 004236 112324 MOVB (R3)+: (R4)+ 
1125 OO4240 O00416 R 8s ;GO TO END OF ROUTINE 
1126 OO4242 O16603 oD0006 7$: MOV &(R6), R3 :GET SAVED EXPECTED VALUE 
1127 OO04246 004767 000170 JSR PC, OCASC :GO COVERT OCTAL TO ASCII 
1168 Oouese O04767 000122 JSR PC’ F ILBUF :GO PUT DATA IN ERROR MESSAGE BUF. 
1130 260 016603 o00010 MOV 10(Re), R3 ;GET SAVED RECEIVED VALUE 
1131 264 004767 O00iSe JSR PC, OCASC :GO COVERT OCTAL TO ASCII 
1132 go4e7a 904767 000104 JSR PC’ F ILBUF GO PUT DATA IN ERROR MESSAGE SUFFER. 
1134 004276 112724 oooo1s Qs: MOVB aCR (R4Y)+ ;PUT CR/LF AT END OF MESSAGE 
1132 O54 Spe eH vita HOVE uF. (Re) sPUT TERMI ATOR AT END OF MESSA 
V' #0, (RY) + N 
1137 004312 005767 174640 TST SERV eet IF ON A csonas 


8 
: 


NI 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee eb he he eh he ee eh ee ree hE 
0 


NN Nh tN A NE A EN RE TE 
BOB VEN LOUE ODO NOU LIN ODDNONEOU-ODONTM EO OSDIR EWUHODe BD 


O00 
wre 


JO0e2 
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-Pll 13-MAR-78 08:58 END OF PASS ROUTINE S€Q O02e 
4 EO 11% ; IF NO BRANCH 
teed ahd 000534 Ree PC, SATY1 :GO REPORT ERROR 
Boyaee 900000 ETORD” 
004330 000000 _ Wate . : THEN HALT 
90433¢ 904767 000530 11S: ish PC, SATY3 :1F NOT ON APT JUST REPORT ERROR 
777 74536 10S: T #BITIS, aSWR ;1S HALT ON ERROR SET 
Dow S26, — BEG 12s :IF NO SKIP OVER HALT 
Oot3e0 005037 OO0111. 12$: L JeROMERR ;CLEAR ERROR FLAGS 
004356 104412 RESREG 
004360 000207 T PC 
362 006 EHEADT: ERIMSG 
004364 006722 ER2EMNSG 
366 9070i4 ER3MSG 
004370 007072 ERYMSG 
004372 007146 


;FILL BUFFER ROUTINE 

; THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL ASCII 

; CHARACTERS. 
004400 022776 000011 OO00GD FILBUF: CMP SHT, a(R6) ;IS FIRST CHARACTER A TAB OR CR 
004406 001003 BNE 1S ;IF CR THEN GO PUT CR/LF_IN BUFFER 
004410 112724 OO0011 MOVB SHT, (RY) + ; IF _TAB_THEN PUT TAB IN BUFFER 
004414 O00404 BR es ;GET OVER NEXT LINE 
004416 112724 OO001S 1$: MOVB acCR, (R4Y)+ ;MOV CR/LF TO BUFFER 
OO44ee 112724 OI00le MOVB eLF (R4)+ 
OO44e6 $= 1leSe4 2s: MOVB (RSS+, (RY) + ;PUT A CHARACTER IN MESSAGE BUFFER 
004430 105715 TSTB CRS) ;I1S NEXT CHARACTER ZERO 
004432 001375 BNE es ;IF NOT PUT IT IN MESSAGE BUFFER AND GET 
004434 062716 oO0000e ADD &e, (R6) ;UPDATE RETURN POINTER TO GET OVER CHARA 
004440 000207 RTS PC ; THEN RETURN 


;OCTAL TO ASCII CONVERSION ROUTINE 
; THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER AND 
;CONVERTS IT TO & ASCII CHARACTERS 


oo4442 012700 007504 OCASC: MOV sOCTBUF, RO ;GET BUFFER ADDRESS 
005020 Cc (RO)+ 


OO4446 LR ;CLEAR BUFFER 
0044SO 005020 CLR (RO)+ 

OO44Se 005020 CLR (RO)+ 

co4¥4s4 005020 CLR (RO)+ 

004%4S6 012700 007504 MOV sOCTBUF, RO ;GET BUFFER ADDRESS 
004462 010337 OO4S44 MOV R3, as TEMP ;GET OCTAL NUMBER 
CO4W466 000241 CLC ;CLEAR C 


ARRY 
004470 006137 oO04S44 ROL aaTEMP ;ROTATE BIT INTO CARRY BIT 


KO2 
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1194 004474 006110 ROL (RO) ;ROTATE CARRY BIT INTO BUFFER 

1195 oO44 1S2710 oo0060 1$: BISB #60, (RO) :MAKE IT ASC 

1196 005200 INC RO ;UPDATE BUFFER ADDRESS 

1197 ooueos 7? 007512 CMP RO, #OC TBUF +6 :HAVE WE CONVERTED ALL THE NUMBER 

1198 19 1003 BNE 2S ; IF NO CONTINUE 

1198 004S1 12708 007504 nov BOCTBUF , eS TF YES PUT BUFFER ADDRESS IN REGISTER 

1201 ite 137 oo04s44 2s: ROL aaTEMP :ROTATE BIT INTO CARRY BIT 

1202 406119 ROLB (RO) :ROTATE CARRY BIT INTO BUFFER 

1203 137 oo4s44 ROL asTEMP : 

1204 106110 ROLB (RO) : 

120S O04S34 006137 oO04S44 ROL aeTEMP : 

1206 powedg 106110 ROLB (RO) ; 

1207 S4e 000755 BR 1$ :GO TO START OF LOOP 

1208 o04S44 900000 TEMP: O 

1209 

1517 

leie ;THIS ROUTINE IS CALLED BY_THE PUT MESSAGE ROUTINE TO GET THE RIGHT 

igi3 VALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER. 

1215 S46 010346 OCADD: MOV RR -(R6) ;SAVE THE VALUE OF R3 

1216 OO4SSO 011303 MOV (R3), R : THE DATA TO BE CONVERTED IN R32 

1217 OO4SS2 004767 177664 JSR PC OCASC GO CONVERT OCTAL TO ASCII 

1218 OO4SS6 012603 MOV (R6)+, R3 RESTORE R3 

1219 O004S60 000207 RTS PC : RETURN 

1220 

1221 

le22 

1223 

1224 

lees .SBTTL TYPE ROUTINE 

l2e7 SEE HE EH SE HE HE JE SE SE 06 a a HE SE JE 0 SE gH a J HH HH HHH 

1228 ;#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

1229 :®#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER _A LINE FEED. 

1230 ;#NOTEL: S§NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

1231 ; *NOTEe: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

isse j NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

1234 :#CALL: 

1e35 :#1) USING A TRAP INSTRUCTION 

1636 7. TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

1¢28 : % Type 

;* ME R 

ies hem 

le4e OO4S62 105767 oO00265 $TYPE: TST TPF ::IS THER TERMINAL? 

i545 004566 100002 . BPL” $$ “ ae a vince 

1e44% 004570 000000 HAL T ;;HALT HERE IF NO TERMINAL 

12e4S 004572 000430 BR 3$ 33 E 

1246 004574 010046 1S: MOV RO,-(SP) ;;SAVE RO 

1247 004576 017600 oD0002 MOV adetsP),RO ::GET ADDRESS OF ASCIZ STRING 

1248 OO4602 122767 OOOODL 174346 CMPB #APTENY, SENV ;;RUNNING IN APT MODE 

1249 004610 OO01011 BNE 62S >:NO,GO CHECK FOR APT CONSOLE 


LOe 
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1250 004612 132767 000100 174337 BITB BAPTSPOOL,SENVM ;;SPOOL MESSAGE TO AP 

121 004620 O0140s BEG oes, 5 3NO, GO CHECK FOR. cons0 Q LE Op one 

1s3§ Beaese Baggs eee JSR PC; ois. 5 + TOOL MESEAGE 10 ABT 

isso 61S: , WORD 0 5 MES Se 

1 000040 174315 625: BITB BAPTCSUP,SENVM 3; Cc ESSED 

1256 42 1 BNE 60S ii YES SKI T 

1257 OO4644 112046 2s: MOVE eh ,- (SP) i PUSH ore ER TO BE TYPED. ONTO STACK 

1653 DOMES poe 98e _ rst pe “ ::1F Tear RMINA OR POP IT OFF THE STACK 

1361 Bowes bes716 oo00002 3S: ADD i (SP) HUE elm PC 

1263 004662 102716 000011 4S: cnr BHT, (SP) ::BRANCH IF <HT> 

ise DONE 70 1ee7 16 000200 cNPe @CRLF, (SP) ;;BRANCH IF NOT <CRLF> 

ise Seibes Geecet fice 150 °Ea‘ seo ER 

1269 004702 OosOosS SCRLF on 

1270 704 7 000130 CLRB SCHARCNT $3 : CLEAR CH CHAR TER pee 

127 71 BR $ T 

1 71 767 oOoo0ss Ss: JSR PC. STYPEC 33G0 T YEE T 

1273 nities a51368 000130 6S: cHPB oe (SP)+ bits it Urechtek RF IUKER CHARS. 7 

1675 16 000120 MOV NULL, -(SP? 33GET 8 OF FILLER CHARS. NEEDED 

1538 004730 105366 000001 7S: DECB 1(SP) +S BOeS A NULL NEED TO BE TYPED? 

1579 pON?3e DONzEF 32 GR «Be, STYPEC Oe els a ee 

1280 742 105367 72 DECB SCHARCN ?:D0 NOT COUNT” AS A COUNT 

1281 004746 000770 BR 7§ : LOOP 

163 ;HORIZONTAL TAB PROCESSOR 

1285 004750 11271 : 33 

1286 oou7e4 baaae$ testy Ss: eRe Bc, st ipec ti TWpenn spac mapas: 

1287 904760 132767 000007 oD00Se2 BITB #7, SCHARCNT i }BRANC cH IF NOT AT 

1289 904770 005726 aS (SP )+ i FPO P SPACE OFF STACK 

i331 B84 4 105777 oo0044 STYPEC: iste oSTPS . ;:WAIT UNTIL PRINTER IS READY 

1293 1 3 oo0002 000036 MOVB 2(SP). aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 

ion i be ; 000015 o0000e CHPS ack, etSP) ;31S CHARACTER A CARRIAGE RETURN? 

1296 poepts 105087 000014 cLRE SCuarcnt i EYES-=CL AR CHARACTER COUNT 

ise Oosdee iee76e 000012 oo00002 1S: cnPe He eCsP) HE CHARACTER A LINE FEED? 

1300 005036 105227 ae © (PC)+ ::COUNT THE CHAR ACTER 

130¢ Speb4 oe ous booe Wwe STYPEX: RTS Bc dd a 

1304 oOSO44 177564 STPS: .WORD 177564 ;;TTY PRINTER STATUS REG. ADDRESS 

1305 o00504%6 177566 STPB: :WORD 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
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: ;CONTAINS NULL CHARAC ER L 
1309 SOSoET Srittss: 7 BYTE : 33 : CONTR NS a OF FILLER capa REQUIRED 
1388 poepes STARE: ‘BYTE be 33 "TE shy oem. LE” FLAG (BIT<O7>=O=YES) 
Nita : py i + RUBS 
: > URN 
aif Bostes seit Beet nt i : +L INEFEED 
1313 ,  \SBTTL APT COMMUNICATIONS ROUTINE 
1313 i 24 Ne eee Eanes 
13s 000236 bATVie nove’ al. greLG **T0 REPORT FATAL ERROR 
? poepee 000226 Ta: NOVB 81° SMFLG 370 TYPE A MESSAGE 
13} GR satyc 
1318 poeare 000220 SATYY: MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
135? itt entahta - PUSH RO ON STACK 
1352 008108 HOY Re? (ep) ey Ri ON STACK 
1383 198 r 18 " LG D TYPE A MESSAGE? 
1149 
i i 6 174032 cnee BAPTENV, SENV HI QPERATiNG-UNOER APT? 
3 i 174023 8178 SAPTSPOOL , SENVM fear) SPOOL MESSAGES? 
1328 1 BE 3 é 
1 (SP 2,R0 T ME sons dime 
353 000 (SP) URN 
1331 is eee 1S: is smSctYPe +SEE IF F "BONE W/ LAST XMISSION? 
1338 1 33 
i iB. RO Hafe ENO oF nessace 
1334 005162 105 2s T378 (RO)+ 33F 
1335 005 
TART OF ME 
Le fetes en enc: eet Ceaser e® 
1339 Birt 173730 HOV 84! SHSGTYPE tT TELL APT TO TAKE MSG. 
1 
: T MSG IN JSR LINKAGE 
ee Boes18 3 Bee 000016 3S: MOV Be, ~~ (OOR IN ran, oon ss 
343 BRess3 BAe eS 55338 ey C, STYPE He CALL 227 RAcKO” 
134S 005234 oo0000 us: .WORD O 
1 S$: 
7 2 10S: TSTB =. SFFLG $5 REPORT FATAL ERROR? 
Le Hesse UBTCGZ 97% Ps pra reggae 
ties Bees ancy 173708 af Hts un or 
1351 gosese ; 7 173660 11S: TST SMSGTYPE i EINISHED bat? MESSAGE? 
13S3 O0S260 O01 000004 173652 fv QD4(SP),SFATAL ;;GET 
RETURN ADDR 
i3ee Qoesta tz anon TNC Sad t Soe 33; TELL obi BEE ERROR 
tes Bead eater ponte as: gag EAS TELEAR FonA, ci 
1358 005310 105067 O00006 CLRB SMFLG :3CL MESSAGE FLAG 
135 14 O1 MOV (SP)+,Ri ;;POP STACK INTO Rl 
1320 poesie 1 MOV (SP)+°RO ::POP STACK INTO RO 
1361 005320 000207 RTS : RETURN 
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Cc 
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1266 o00S322 


1 
1364 


Sables 


_ 


= be be be ae ae be be ae ts ee be se be Be bee ae ee ee ee eee se fone Pe en ime ie me ese eae fe ae a ss ene es Pn nn Pe Penn eae es nw wn Pw 


SELLE LLS£ 
pesyesyesyesy easy wey ey a 
NOW SW-O 


SRREGROSSESRA SON ae SRR ORES Ja Yolal Jan 


56 
8 
, 

fu 
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2) Soy 


000176 


177676 


177672 
177600 


o000es 
o060S2 
000006 


000015 
oocoo4 


NOe 


eae sReT COMMUN teaTTons” ROU ihe se ase 


rie: TE 8 
FLG: gM 
wr sae 


=1 
aie ROUTINE 


$i “WORD 1 
LS5 


A SOF THARE gi T GI 
i #ROUTT 
SERN INE-IN TTY FLAG 
173544 $CKSWR: CMP esuREG Su 
STB 5 
BPL 1 $ 
Move KB, -(SP) 
BIC 8tC17?, (SP) 
CMP 87, (SP5+ 
BNE iss 
oo0001 CMPB TOB, #1 
BEQ 4 
SGTSWR TYPE AN 
MOV SWREG, -(SP) 
TYPOC 
TYPE , SMNEW 
19S: CLR ~(SP) 
CLR -(SP) 
7$: TSTB asTKs 
BPL 7$ 
MOVB aSTKB, -(SP) 
Cc #¢C17?, (SP) 
9S: CMP (SP), #25 
BNE 10s 
TYPE S$CNTLU 
20S: ADD && SP 
BR 19% 
10S: CMP (SP), #15 
BNE 165 
TST 4(SP) 


hae FLAG 
OG FLAG 
ATAL FLAG 


sgrvnugennzrzernnnnnensrenamansnerneneceneen 
1 


TTY wee STA 
$;TTY KBD BUFFE 


TARE SUITCH REGISTER CHANGE ROUTINES 7S sRRREERSE 


IN enol Ra eH REGISTER TRAP CALL 


eae THE fiw SELECTED? 
oT WAIT AROUND 


eh THE, ASCII 


ry RUNNING USN AUTO-MODE? 


CONTROL-G (tG) 
YPE C NT Ok TPC OU 


i SAVE SUREG TYPEOUT 
--OCTAL ASCIICALL DIGITS? 
FOR NEW SWR 


a 


ata 
Ps) 


3B yO30 
2 28 
i 
5 a= 
a 
»° 


mx 
—e 
e- 
Yo 
o 
Hw 
= 
D 
Ww 
Oo 
~ 
ow 


t EYES. ECHO CONTROL-U (tU) 
?} IGNORE PREVIOUS INPUT 
Piles TRY IT AGAIN 


3318 ITA so? 
; BRANCH NO 
YES, Is fT THE FIRST CHAR? 


SES 0026 
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1418 005474 001403 Q 53 
1419 005476 Teese 0002 173400 ay 318.) aswR + ORO NEW SWA 
1420 a5 0006 113: ADD #6, SP ::CLEAR UP STACK 
ied 90819 1 o o0soss 14S: TYPE $¢RLF :;—ECHO <CR> AND <LF> 
iNee 05513 767 173361 000001 cnPe SINTAG, #1 3 aE NABL. LE ry KBD INTERRUPTS” 
ies Pee Bits 000100 177574 ao mov #10U,a$TKS ; ;RE-ENABLE TTY KBD INTERRUPTS 
456 767 177234 ; + 
Ne} Goeng Bice scbed ee ee ts a 
Hes Osea Bice? coer on Se 
1430 00S 003015 BGT ies ” :;BRANCH IF YES 
1431 OOSSS4 26 o00060 BIC #60, (SP)+ ::STRIP-OFF ASCII 
1432 766 o00002 TST 2(SP) *:1S THIS THE FIRST 
1433 4 1403 BEG 178 >: BRANCH IF Ses! meres 
1434 O0SS66 16 ASL (SP) ::NO, SHIFT PRESENT 
1435 70 16 ASL (SP) >: "CHAR OVER TO MAKE 
1436 005572 006316 ASL (SP) +: ROOM FOR NEW ONE 
1437 005574 O0S266 o00002 17S: INC 2(SP) ::KEEP COUNT OF CHAR 
1438 O0S600 OSb616 177776 BIS 5@ (SP), (SP) ::SET IN NEW 
1440 OOSB08 104401 o0s0s4 188: TYPE 5 SQUES tree PccR> cL or 
pall :: SIMULATE CONTROL-U 
lave .DSABL LSB 
tue 
gs KRKKKKAKEKKAAKAHSHKREKSKSSSAALKAKAKKAAEAAAKHKHKKAELEALERKERSRE 
ioe ;ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY — 
1448 : a ” RDCHR ;; INPUT A SINGLE CHARACTER FR 
: Ar OM THE TTY 
1449 * RETURN HERE ;;CHARACTER IS ON THE STACK ' 
1450 ; ::WITH PARITY BIT STRIPPED OFF 
14S2 
1484 OO8eie 16666 op0004 oooone SOM: Aoy Sts) StEP ttEae THE tate 
1485 gost 105777 177476 1S: TSTB asTKs’ tS BAYT F 
1ge? posess iiP%6e 177472 oO0004 eye 46 OSTKB,4(SP) 5A EAA Ae Sty 
1458 OOS64O 042766 177600 o00004 BIC #tC<1?7>.4(SP) ::GET RID OF JUNK IF ANY 
1458 DOSb46 G26be7 000004 900023 cn 4(SP), #23 HH Is ITA CONTROL -5? 
460 OO0S6' ;;BRANCH IF NO 
146) GOSE56 108777 177444 2s: TsTe gSTKs :;WAIT FOR A CHARACTER 
1463 005664 117746 177440 MOVB aSTKB, -( SP) + LOOP UARASTER? — 
1464 005670 042716 177600 BIC #tC17?, (SP) >:MAKE IT 7-BIT ASCI 
1465 005674 G22627 000021 CMP (SP)+, be 33 rie 
1Uee Beers Becge? cn (SP )+, i bi18 IT A CONTROL-O 
1467 005702 900750 R i$ EYES) RESUME ah 
1WeS BOETi2 peenB? COG0O4 B00140 3S: BLT oe 5313 27, UPEER CASE” 
1470 905714 Ge6be7 000004 000175 cH 4(SP), #175 ::1S IT A SPECIAL CHAR” 
1472 Q05724 042765 000040 000004 BIC #20, 4(SP) TURRET UPPER CASE 
4g: RTI ::GO BACK TO USER 
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WU OUT UT UT UU UU UU 


TOPUTU ee ee 
WN -OWONOT WES WO 


eb ee ee ae ee ee ee ee es 
WUT 
fruruforor 
NOW 


ul 
tJ 
mo 


Pll 


ae 


Eos 


QO000-- 
ob bh 
- 
fr 


4 
& 


136 


= Bot 


o0604e 
0060Se 


000177 
oosos4 
000044 
006040 
000015 
177777 
oososé 


ooooo4 
006042 
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oo00002 
ooo004 


000 
000012 
Oe0lee 


0S3S05S 


TY INPUT ROUTINE 


5 REESE SEER EEL E EES SEE ELAS SLAP LE ESSE E EL ER EERE ES EES EES 
:ATHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 


4 ROLIN 3s INPUT 8 STRING FROM THE TTY 
3H RETURN HERE 3 #RDDR ESS OF FIRST CHARACTER WILL BE ON THE STACK 
:# :; TERMINATOR WILL BE A BYTE OF ALL O'S 
SROLIN: MOV R3,-(SP) ; ; SAVE 
1$: MOV aSTTYIN,R3 :;GET ADDRESS 
2s: CMP aSTTYINGS. ,R3 is BUFFE FULL? 
RDC :3 Be A ES HARACTER FROM THE TTY 
MOVB (SP)+, (R3) Ger CHARACTER 
10S: CMPB 8177, (R3) 3:15 IT A RUBOUT 
BNE 3$ :;SKIP IF NOT 
4$: TYPE SQUES :; TYPE A *?? 
BR \s :;CLEAR THE BUFFER AND LOOP 
33: MOVB (R32), 9S :;ECHO THE C CT 
TYPE 9$ 
CMPB biS, (R3)+ ;;CHECK FOR RETURN 
BNE 2s ;;LOOP_ IF _NOT RETURN 
CLRB -1(R3) 3 CLEAR | RETURN (THE 15) 
TYPE SLF A LINE FEED 
MOV tSP)+,R3 fs ORE R3 
MOV SP), -(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV (SP) 2(SP) FIRST ASCII CHARACTER ON 
MOV STTYIN,4(SP) 
RTI ; RETURN 
9s: - BYTE :ST ORAGE 15OR ASCII CHAR. TO TYPE 


E YTES FOR TTY INPUT 
#u/<1S> HR SRRYE hy a 
IB : ; CONTROL “Ge 
15><1l2>7SWR 


A fate BEG, 


( 
4 
8 
0 
0 Hy 
8. 
ad / 
pe TL: - BBkIS ‘ 
SMNEW: .ASCIZ / NEW = 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


piuceseoonccstequesssegoncsncetetesenest sees sete ern tL a iat 
para ROUTING TS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


I QND_TYPE 
TYPOS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


ec 

* MOV NUM, - (SP) ;;NUMBER TO BE TYPED 

# TYPOS ;;CALL_FOR TYPEOUT 

* YT N ;3;N=1 TO OR NUMBER OF DIGITS TO TYPE 
* YT M 33;M=1 OR 

* ; 1L=TYPE LEADING ZEROS 

. : ]O=SUPPRESS LEADING ZEROS 


; #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
sezivrus OR STYPOC 


* MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
TYPON 3;;CALL FOR TYPECUT 


™ 


oe 


SEG 0026 






CZM9BA 


1SS 


0 


pegnannanaany 


Reeser de dete edad EY: 
acuzan=o 


a ee ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed 
ul " 

N 

Vs) wo 


-Pll 


ZIERSE LESH? 


Sarno 
popeee 
RARER 


eeeeeeeeeeqeonmonienieeeet 
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ggaaaage 
eee 


000076 
177770 


o0000e 


MACY11 30A(10S2) 
BINARY TO OCTAL (ASCII) AND TYPE 


000211 


ate 
eae 


oooc04 


DO3 
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;% 
:#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


s#CALL: 
Le 


STYPCS: 


STYPOC: 
STYPON: 


1$: 
es: 


3$: 


4S: 
Ss: 
7$: 


6$: 


NUM, -( SP) 


a(Sk),-(SP) 
1353 88h dhe + 
I (sh) 

ST sor rut 


#6, +1 
#8: S3cn 
*=(SP) 
L,RY 
ihre 


SOMODE 


fFOHOB BoA Tbe dureO 
;;PICKUP_THE MOD 


E 
iS ROPBEREBE Bier re to type 
:TADJUST RETURN ADDRESS 
::SET THE ZERO FILL SWITCH 
BE Oe Fee Belton 
;;SAVE R 
;;SAVE RY 
i 8BYE AP numBeR OF DIGITS TO TYPE 
;;SUBTRACT IT FOR MAX. ALLOWED 


T 
;;GET THE ZERO FILL SWITCH 
3 NUMBER 


* A BLANK 


ee OR 

;;RESTORE RY 

;;RESTORE R3 

3;SET THE STACK FOR RETURNING 


3; ; RETURN 

:;STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 
:;OCTAL DIGIT COUNTER 


00e3 


E93 


M9BA ma312 BOOT TERMR 8K MACY11 30AQ(10S2) 13-MAR-78 08:59 PAGE 30 Cae 
rs SBA -P * 13-MAR-78 08:58 BINARY TO OCTAL (ASCII) AND TYPE SE 0039 

i586 006331 000 SOFILL: .BYTE O ; ZERO ae SWITCH 

587 006332 000000 SOMODE: .WORD O UMBER OF DIGITS TO TYPE 

i588 .SBTTL SAVE AND RESTORE RO-RS ROUTINES 

1383 KKSKKKFATRHRKAASHKSSPSPRFSA SSFSSSSSSSSSSHSSSSSSFFSSSHSLSSSHSSSSSSSHSHS 

1591 SAVE RO-RS 

1592 ; #CALL: 

1593 SAVREG 

1834 : KUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

1596  STOP---( 416) 

1897 ;# 42---(+18) 

1598 1% +4---RS 

is393 :# +6---R4Y 

1600 :# +8---R3 

1601 : #+10---Re 

1602 :#412---R1 

1603 :#+14---RO 

1604 

1605 006334 SSAVREG: 

16 006334 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 

1607 006336 010146 MOV R1;-(SP) :;PUSH R1 ON STACK 

1608 006340 010246 MOV Re. -(SP) :;PUSH Re ON STACK 

1609 O06342 010346 MOV 3° -(SP) ::PUSH R3 ON STACK 

1610 4 O10446 MOV RY; -(SP) ::PUSH RY ON STACK 

1611 010546 MOV RS. -(SP) +:PUSH RS ON STACK 

1612 006350 O16646 oD0022 MOV 22tsP),- (SP) ;;SAVE PS OF MAIN FLOW 

1613 016646 O00022 MOV 22(5P);-(SP) ::SAVE PC OF MAIN FLOW 

1614 006360 016646 000022 MOV 22(5P);-(SP) ::SAVE PS OF CALL 

1615 006364 016646 O000e2 MOV 22(5P);- (SP) >:SAVE PC OF CALL 

1618 006370 ooc0c2 RTI 

1618 ;#RESTORE RO-RS 

1619 :*#CALL: 

1620 : RESREG 

1621 006372 $RESREG: 

1622 006372 012666 o00022 MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 

1623 006376 Ole666 O0000e2 MOV (SP)+;22(SP) >;RESTORE PS OF CALL 

1624 0064 Ole666 O0002e MOV (5P)+;2e(5P) t:RESTORE PC OF MAIN FLOW 

1625 O06406 O12666 O000ee MOV (5P)+; 2e(SP) ::RESTORE PS OF MAIN FLOW 

1626 O06412 012605 MOV (SP)+°RS :;POP STACK INTO RS 

1627 006414 012604 MOV (5P)+;,R4 :;POP STACK INTO RY 

628 O06416 012603 MOV (S5P)+°R3 :;POP STACK INTO R3 

1629 006420 012602 MOV (SP)+'Re :;POP STACK INTO Re 

1630 O06422 012601 MOV (5P)+;R1 :;POP STACK INTO R1 

1631 0064 012600 MOV (5P)+;RO :;POP STACK INTO RO 

1632 O06426 oO0000e RTI 

1633 .SBTTL TRAP DECODER 

1635 + SHKERAAKKRKERERFRARKRKRAE hahoh hahahahahaha tahahghabateh-baiab-ebahabehah-bb-bohel-heh-bababehtatel 

1636 THIS ROUT INE WILL PICKUP THE LOWER BYTE OF THE * TRAP” INSTRUCTION 

1637 sen USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

1638 *#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

1639 :#GO TO THAT ROUTINE. 

1641 06420 c1cO4E STRAP: MOV RO,-(SP) ;;SAVE RO 


FO3 


9BA0 ma3i2 BOOT TERMR 8k MACY11 308: 1052) 13-MAR-78 08:59 PAGE 31 . 
cen gBALP I 13-MAR-78 08:58 TRAP DECODER S€G% 003: 
4 432 ecoo2 MOV 2(SP),RO ;3GET TRAP ADDRESS 
1eu8 ooe4 a6 paeecs + TST -(RO) BACKUP BY 
1644 OO644O 111000 MOVB (RO),RO i 'GET RIGHT BYTE OF TRAP 
ieue Ope aud arta 00646 AoW STRPAD(RO) RO 1 INOEx 10 FOBL ~~ 
4 44 aed ‘ 
ie? 0064SO o00200 RTS RO :GO TO ROUTINE 
164 
yy 
1660 ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
1652 OO64S2 011646 STRAP2: MOV (SP), -(SP) ;;MOVE THE PC DOWN 
1653 006454 016666 o00004 oD0002 MOV 4(SP},2¢SP) *:MOVE THE PSW DOWN 
1654 006462 o00002 RTI :;RESTORE THE PSW 
1628 .SBTTL TRAP TABLE 
1658 se THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
1659 *#BY THE “TRAP™ INSTRUCTION. 
iso) ; ROUTINE 
1663 006464 oO064S2 $TRPAD: .WORD S$TRAP2 
1664 OO6466 O04Sbe $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUT INE 
Ieee OBEYS DOR LOE Seo eee eee eee tsiiouuns> TYPE SSTAL NUMBER (NO LEADING ZEROS) 
= > 
1667 006474 006146 STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
1665 006476 o0S402 SGTSWR ;;CALL=GTSWR TRAP+5(10440S) GET SOFT-SWR SETTING 
1671 006500 005332 SCKSWR  ;CALL=CKSUR TRAP+6( 104406) TEST FOR CHANGE IN SOFT-SwWR 
1672 006502 005614 SROCHR $5 COLL SRpCHR TRAP +7 (104407 ) TTY TYPEIN CHARACTER ROUTINE 
1673 006504 005734 SROLIN ::CALL=ROLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
1674 006506 006334 SSAVREG :;CALL=SAVREG TRAP+11(104411) SAVE RO-RS ROUTINE 
1678 006516 006372 GRESREG ;:CALL=RESREG TRAP+12(104412) RESTORE RO-RS ROUTINE 
167 
1678 -M 
1678 ; MESSAGES 
if87 006512 030062 ROMNUM: .ASCII 720 
NUM: . 4207 
1682 006514 032463 "ASCII 7357 
1683 006516 031463 [ASCII 7337 
1684 006520 2063 "ASCII 7347 
1685 006522 031063 “ASCII 7327 
1686 006 177607 000377 BELL: ASCIZ <207><377>«377> 
1688 
1689 006530 O44SO4 043501 O200S56 DRHEAD: .ASCIZ /DIAG. ROM - 
1690 006536 047522 O20115 000 
1691 O06543 051108 oa717 051524 BRHEAD: .ASCII “BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES.<15><12 
1693 006556 046517 O42440 052116 
1694 564 O54S22 OSOO4O O44S17 
1695 006572 052116 O20123 047101 
1696 O06600 020104 O42504 QO44S26 
1697 O06606 O42503 O41440 042117 


- T TERMR 8K MACY11 30A(1052) 13-MAR-78 09:59 PAGE 32 aa 
SET Pocnane TRAP TABLE S€% 0032 


3-MAR-78 08:58 


1633 Boeeso O47011 G2011? oyYSsOY JASCIZ NO DIAG. RUN DIAG. DEVICE CODE: 
1700 06626 043501 OO44SE OS25e2 

1701 O06634 O20116 O44SO4 043501 

1702 OO6642 OO4W4SE O42504 O44526 

1703 OO6ESO GNeS03 OMI4O 042117 

150 DOSED OSise0 OS2S0S O47S04 PFHEAD: .ASCIZ -PSEUDO POWER-FAIL VECTOR ADDRESS 
1706 7 951105 

150% Ober 114 

1708 1 1117 

ee Brie Gates aes Daesee 

1711 O0728 ON7503 GYb125 Oe104 EREMSG: .ASCIZ /COULD NOT FIND DEVICE CODE / 

1712 006730 047516 124 O44S06 

1713 006736 042116 O42040 053105 

1714 006744 041511 020105 047503 

1715 06752 

1716 006756 1 0104 ERIMSG: .ASCIZ “FOUND UNEXPECTED DEVICE CODE - 
1712 006764 0471 41 2520 

1718 006772 OSel 2105 42040 

1719 O53108 41511 020105 

i751 Boo1s OM ieee? Bopses ERSNSG: .ASCII /POWER-FAIL VECTOR ERROR/<15><12> 
1722 007022 O40506 111 053040 

1723 007030 O4150S 047524 O20122 

1724 007036 051103 ON7S22 OdBSee 

1756 do7bNE O12 OS4105 g¥25e0 JASCIZ / EXPECTED RECIEVED /<15>«12 
1727 007052 O52103 O42105 051011 

1728 007060 O41S05 O4e511 O42526 

1729 007066 006504 o00012 . 

1730 007072 047520 ONeSe? OeEsee ERYMSG: .ASCII /POWER-FAIL DATA ERROR/<15)< 12) 
1731 007100 046111 O42040 

1733 Borin oN%eee QoEsee ~~ Ole 

1734 007121 Oli OS4105 o4e520 JASCIZ / EXPECTED RECIEVED <15)«12> 
1735 007126 052103 042105 051011 

1736 007134 041505 Ovesii O42S26 

1737 007142 006504 00001 

i738 007146 051103 020103 051105 CRCMSG: .ASCIZ /CRC ERROR IN ROM E-- 

1739 007154 04 Olee O47111 

1740 007162 051040 ONESI7 O424HO 

1741 0071 a 
1742 007172 047503 046125 O20104 PFMSG: .ASCIZ “COULD NOT DETERMINE POWER-FAIL VECTOR ADDRESS: 
1743 007200 047516 O201e4 O42504 

1744 007208 Oese4 ONGSe2 47111 

1745 007214 Tos O47e50 Queso? 

1746 040506 046111 

1747 007230 053040 041505 047524 

1748 007236 Oe0i2e 042101 051104 

1749 007244 O05 g0012 

1780 007850 047516 1040 046517 NOROMM: .ASCII “NO ROMS TEST ERROR/<15><12 

1751 256 020123 O42524 052123 

1752 007264 O42440 OSile2 051117 

1753 007272 OOS0IS 
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CZM9BA.P11 13-MAR-78 08:58 TRAP TABLE 
754 007274 1 050130 041505 ASCIZ 
is S 007 Sead nates O4eSe2e 
1758 007310 O44503 0S310S oO4e2i0S 
1758 7317 1s O12 OS310S SEQMSG: .ASCII 
1759 epee owsii g3 rer 953208 
1760 007332 O42504 Oe0le3 047516 
1761 7340 Oe01e4 7111 047440 
12b¢ D07. 1 Lao 
1763 007354 y 459 
1764 007 1 1 0131 mer 
1765 007370 O47111 OS2i23 046101 asciz 
1766 007376 O40514 O44S24 047117 
1767 74 OSOO4O0 O47S22 042503 
1768 OO7412 OS2S504 O4eS2ee o000S6 
1769 . EVEN 
1770 
1771 
177e ; BUFFERS 
1773 
1774 BUF 1: 
1775 . WORD 
1776 . WORD 
ee tee 
1278 . WORD 
1780 . WORD 
1781 . WORD 
1782 . WORD 
1783 - WORD 
1784 . WOR 
1785S . WORD 
1786 . WORD 
1787 . WORD 
1788 . WORD 
1789 . WORD 
1730 . WORD 
1791 . WORD 
1792 . WORD 
1793 . WORD 
1794 . WORD 
1795 . WORD 
1796 . WORD 
1797 WORD 
1798 WORD 
1739 BUF 2: . WORD 
1800 . WORD 
1801 00 OCTBUF: .BLKB 
1802 007514 MESL: BLKB 
1803 010114 000100 MESe: .BLKB 
1804 010214 9000100 ERRMSG: .BLKB 
1805 
1806 
1807 000001 . END 


EXPECTED RECIEVED. 


15>.12@>/DEVICE CODES NOT IN OROER SPECIFIED Br - 


‘INSTALLATION PROCEDURE. ¢ 


ee £-OOKKKOOOOOOOND0N000000000000 


0000 
o00 


I03 
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cSneBA Pi TSemAR=se 08:58 CROSS REFERENCE TABLE -- USER SYMBO.S 
= 000000 S06 S47 
ACDW1 = QO0000 S06 549 
ACDWe = 000000 S06 5$0 
AcPUOP= 000000 S06 Sel 
ADOWO = 000000 S06 S$1 
ADDWI = OO0O00 S06 SSe 
ADDW1O0= OO0O00 S06 S61 
ADDW11= GOOOOO S506 S6e 
ADDWie= OOOO00 S06 S63 
ADDW13= O00000 S06 S64 
ADDWI4= OOO00D S06 S65 
ADOW1S= OO0000 S06 S66 
ADDWe = GOO0000 S06 $$3 
ADDWS = 000000 S06 SS4 
ADDWY = 000000 S06 sss 
= 000000 S06 SS6 
ADDWE = O00000 S06 $7 
ADDW7 = 000000 S06 SS8 
ADDWS = 000000 S06 ss93 
ADDWS_= 000000 S06 S60 
ADEVCT= 000000 S06 Sle 
ADEVM = O000000 S06 S48 
AENV. = 000000 S06 517 
AENVM = O00000 S06 518 
AFATAL= O00000 S06 509 
AMADR1= OO0000 SO6 S34 
AMADRe= 000000 S06 $38 
AMADR3= OOOO00 S06 S41 
AMADRY= 000000 S06 S44 
AMAMS1= OOOO00 S06 S28 
AMAMS2= 000000 S06 $36 
AMAMS3= OO0000 S06 $39 
AMAMS4Y= OO0000 S06 S42 
AMSGAD= 000000 S06 S14 
AMSGLG= 000000 S06 515 
= 000700 S06 508 
AMTYP1= OOOO0O SO6 Se3 
AMTYP2= OO0000 S06 537 
AMTYP3= OO0000 S06 S490 
AMTYP4= 000000 S06 S43 
APASS = 000000 S06 S11 
APRIOR= 000000 506 
APTCSU= OO0040 1255 1 
APTENV= OO00001 1248 1325 13678 
APTERI= 000001 4348 
APTERe= 000002 4358 84 
APTERS= 000004 4368 Si 
ER4Y= 000010 4378 857 
APTSIZ= 000200 $97 13668 
SPO= 000100 1250 1327 13688 
ASWREG= S06 $19 
ATESTN= OO S06 $10 
AUNIT = 00 506 $13 
SWR = 000300 506 S20 
AVECTI= 000 S06 S45 
AVECTe= 000000 SO6 S46 


JO3 
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CZM9BA.P11 13-MAR-78 08:58 OSS REFERENCE TABLE -- USER SYMBOLS 
Bytb = S08681 AS 
= 
siiep : oe : ae 
= 
BiTps = ponood yous da 
BITO3 = 000010 4038 413 
BITOY = 4028 4le 
BITOS = 40 4018 411 
BITOE = 100 4008 410 
BITO7 = 3998 409 
BITOS = 000400 3988 408 
Birt = apsane ed 
= 
BIT1IO = reese 3968 1092 
BIT11 = 004000 3958 
BITle = 010000 3948 
BIT13 = O20000 33938 1096 
BIT14 = 040000 3928 
BITiS = 100000 3918 1145S 
BITe = OO0004 4148 
BIT3 = 000010 4138 
BIT4Y = O00Ce20 4lee 
BITS = 000040 4118 
BIT& = 000100 4108 
BIT7 = 000200 4098 
BITS = O00400 4088 
BITS = 901000 4078 
BPTVEC= 000014 4238 
BRHEAD O06S43 963 16918 
BUF 1 007420 622 817 832 879 9S3 1034 17748 
2 007500 848 S54 931% 932 936+ 937% 330 394 17998 
Sum O02%62 730 743 7668 
CHECKS 244 657 7248 
KSWR = 104406 16718 
= 000015 3318 958 96S 966 39933 1001 1108 1134 1170 1294 1304 
CRCERR= 000020 4388 734 747 
RCLOP 0025S 7718 78 
CRCMSG 007146 1156 17388 
RLF = 000200 3328 bel 1265 1304 
LAG 003252 886% 694 S11 9178 102S+* 1028+ 1029 1033* 1063 1066 1069+ 
ISP = 177570 3388 474 58s 
DEVCOD 00 804 816 8798 
DISPLA 001106 474% Sess 593* 
DISPRE 000174 4Sle8 $93 
DRHEAD 006530 956 16898 
OSWR = 177570 3378 ty Sey 
EHEADT 004362 1100 11528 
EMTVEC= 000030 4ebs 
ERRCNT 001120 4798 1091 
E 004062 711 35 748 810 827 B41 8S2 eos 10898 
E SG 010214 1090 1140 1144 1804s 
ERRVEC= 000004 4198 S8e S83* SS4* 628 629% b41# 
ERIMSG 006756 115 17168 
Eronee Brats Hey Hitt 
4 
ER4MSG 007072 i155 17308 


CZM9BA0_M9312 BOOT TERMR 8k 


CZMSBA.P1 


ExCADD 
FILBUF 
FIRSTA 


1 
S4 
400 
002552 
001114 
003772 
76 
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oon 
~_ 
£ 
aK 


a 
oo 
fu 
e 


is 


NNO ONNNN 
oootw 
se ses 


—— eee 


MACY11 30A(105 
CROSS 


9298 


3488 


740 
734 


637% 
693 


KO3 
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EFERENCE TABLE -- USER SYMBOLS 
781 7908 
979 992 997 1107 1128 1132 11668 
783 767 7898 
1665 1666 1667 1669 1671 1672 1673 
984 998 1129 1133 1i&66 1168 1263 
784 7918 
1135 1171 1298 1304 
12158 
1217 
1197 1199 18018 
741 7578 1113 
747% 808 B2b* BY4O# gsl* 8S7* 939+ 
C4o+ 653 7eS 741 881 88g 1022 


1098 
1035S 


1099 


1109 


CZM9BAO M9312 BOOT TERMR BK 
CZM9BA. 8 


Pll 
SEQEX 003770 
SEQMSG 007317 
SEQTST 
tack = not pred 
TART 400 
Sun 01104 
SWREG apeare 
= 
abo = i 
Swo = 
euos = 
SWO3 = 000010 
SWwOY = 000020 
SWwOS = panos 
= 
erps = Bppi08 
SWwOS = OO0400 
SWOS = 001000 
SW1 = 
SW10 = 
SW1l1 = O04000 
SWle = 010000 
SW13 = O20000 
SW14 = O40000 
SW1S = 100000 
SWe = ted 
SWY = 
SWS = 000040 
SW6 = 000100 
SW7 = 000200 
Swe = 000400 
Sws = 001000 
TBITVE= 000014 
TEMP 004S44 
TESTAD 003250 
TIMES 003644 
TKVEC = 000060 
TPVEC = O000064 
TRAPVE= 000034 
TRTVEC= 000014 
TY = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 1044 
SAPT 001122 
SASTAT= HeeEKE 
SATYC 005104 
SATY1 
SATY3 OOS 
SATY4Y 005076 
SAUTOB 001100 
A O01212 
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1030 1032 
1048 17588 
661 10ee8 
3248 S74 
4s4 $728 
3358 
4738 Soux 
4Se8 S392 
3888 
3 Ba 388 
778% 387 
3768 386 
3758 385 
3748 384 
3738 383 
37e8 382 
3718 381 
3708 380 
3698 379 
3878 
3688 
3678 
3668 
3658 
3648 
3638 
3868 
3858 
3848 
3838 
3828 
3818 
3808 
37938 
4218 
1191% 1193 
643% BYY 
$00 S01 
627% gyg 
4288 
4298 
4278 S76# 
4228 
607 682 
1489 1492 
396 16658 
16678 
16668 
490 4968 
U 1347 1362 
1318 13208 
1139 13168 
1143 1253 
13198 
4708 617% 
S478 847 
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ROSS REFERENCE TABLE -- USER SYMBO.S 


MACY11 ae oS Sie 


1040 


13178 
1390 


104S 


1S11 


10498 

Ss9* 613 1092 1096 1145S 1382 
1395 

120S* 12088 

651 883* 884 ges 887% 891 
Site 

1047 1094 1268 1393 1394 1397 
16648 


14194 


896 


i416 


897 


1421 


e9e* 


1440 


0037 
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~ 
. 
- 


PERErrErS 


WL£Wwue-O 
888 


bh be 





EERE 
S88888S 


~ 
£ 


aE esos 
gesegeene 


q 
f 
3 


SMAMS2 
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MACY11 30A(10S2) 


SES 0038 
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5398 
S4es 
4988 
6 1317% 132 1358 
1397 15098 
5148 1333% 1336 
1S8 1338 
@ 1331 1339% 
1394 15078 
SNTYP Seg 
S378 
TYP S40e 
TYP S438 
ie7s 13068 
1S43% 1572 1$8Se 
sore 1S38# 1S4e% 1S47 
SPRS' Sils 78% 596% 
SPASTM S008 
SQUES 13108 1440 1489 
ioeae 1672 
C= ReRREE U 16 
N 00S7 14818 1673 
T= £82222 U 1674 
= Boose lesis 1675 
SRTNAD Oosied esas 
SREA = RHRERE U re ae | 167 
oes! 60S8 y 
= 124 4SSs8 $75 S76 
$s = 177777 4SSe 
= 10 4628 467 
SSWR = 160000 3le 3138 318 
SSWREG 001160 5198 5393 
STESTN 001142 5108 
STKB 13748 1386 1403 
SsTKS 13738 1384 1400 
STN = 000001 gles 
STPB OOSO46 1293 130S8 
STPFLG 0O0S0S3 le4e 13098 
STPS ooso44 1291 13048 
STREP poeizg S76 16418 
STRAP2 ty 16528 1663 
TRP = 000013 16568 16658 16668 
siera> borise en 
STTYIN OO604e 1482 1483 1500 
TYPBN= #22224 U 
st = £etREE U 1668 . . 
i 1344 1656 
TYPEC eitac 1272 1279 
$T x ooso4e 1297 1299 13028 
STYPOC 006132 1S418 1665S 
STYPON poole 1540 15438 1667 
STYPOS 106 15368 166) 
SUNIT 001150 S138 
SUNITM 001132 SOls 
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13628 


1351 


1550# 
6S8 


1s0S 


$78 
319 


14S7 
1424s 


16678 


1SO4# 


13SS* 


1561 
674s 


S80 


320 


1463 
1455 


16688 


12Se 


NO3 


08:59 GE 40 


15878 
67S# 


1669 


1426 


694 


608 


580 


674 


667 


1377 


674 


1S11 


686 


16 


_ 
¢ 


38 


692 


16748 


694 


16758 
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16768 


CZM9BA0 M9312 BOOT TERMR Bk 
CZM9BA.P11 


SOF ILL 


. SASTA= 
. SX = 


00116e 


1 

001206 
001210 
000000 
006331 
010314 
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MACY11 30A(10S52) 13-MAR-78 09:59 PAGE 41 


CROSS REFERENCE TABLE -- USER SYMBOLS 


15$1 1S86s8 


4S08 4oSea 462 4638 4658 
697 1304 135 1306 1307 
1374 15048 1S0S 1$11 18018 


4698 
1309 
18038 


CO4 
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Sse 3is 138313821583 1EBE seas 


1667 1669 1671 1672 1673 1674 i675 


oie at 
STARS 4318 433 460 483 485 492 sos 664 1227 1315S 1372 1377 1445 1474 $13 


3028 4318 601 


SSSE 16568 1665 1666 1667 1669 #1671 1672 1673 1674 1675 
SSSETM S968 
SSSKIP - 4318 
-EQUAT 3028 321 
[HEADE 3028 
[SETUP 3028 455 
[STARS  30e8 
:SWRHI 93028 = 314 
[SWRLO  0—_s«2332 18 
-SACT1 3028 458 
-SAPTB 3028 8 sSO3 
-SAPTH 3028 481 
[$APTY 3028 1313 
SASTA 3028 
SCATC 302 444 
MTA =: 3028 

oP 3028 
SREAD 3028 

VE 3028 


O4 
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. ABS. 010314 000 


ERRORS DETECTED: 6 


CZM9BA, CZM9BA. ‘SOL ‘CRF “NL: TOC=C2M73A. P11 
RUN-TIME: 20 S .7 SECONDS 

RUN-TIME RATIO: 97/27=3.5 

CORE USED: 20k (39 PAGES) 


EO4 


